Samle flere ark til et

Jeg har arbejdet med denne bid som jeg har fundet herinde:
Sub CollectData()
    Dim wks As Worksheet, NextRow As Integer

    Application.ScreenUpdating = False
    For Each wks In Worksheets
        If Not wks.Name = "Samleark" Then
            wks.Activate
            Range("A7").Select
            Range(Selection, Selection.End(xlDown).End(xlToRight)).Select
            Selection.Copy
            Worksheets("Samleark").Activate
            NextRow = Range("A65536").End(xlUp).Row + 1
            Cells(NextRow, 1).Activate
            ActiveSheet.Paste
        End If
    Next wks

    Application.ScreenUpdating = True
End Sub

Den returnere kun data fra det sidste ark.

Nu har næsten løst problemet -

Jeg skal have lavet denne formel om:
Range("B7").Select
      Range(Selection, Selection.End(xlDown).End(xlToRight)).Select

Da der er "huller" i dataen skal jeg bruge en selection der går ud til kolonne BB i stedet for "End(xlToRight)"

Hvordan skal den se ud?

lukker denne