Indsætning af loop indtil tom kolonne

Jeg har fået følgende til at virke:
Set rInputTable = Range("A7").CurrentRegion
arInput = rInputTable.Value
Set rInputTable = Nothing

ReDim arOutput(1 To UBound(arInput), 1 To UBound(arInput, 2))
For lRow = 1 To UBound(arInput)
  If arInput(lRow, 1) Like vPattern Then
      lCount = lCount + 1
      For lCol = 1 To UBound(arInput, 2)
        arOutput(lCount, lCol) = arInput(lRow, lCol)
      Next
  End If
Next
Jeg vil dog gerne at "arInput(lRow, 1)" løber hele arket igennem og ikke kun 1. kolonne som nu, men jeg kan ikke lure hvordan jeg skal flettes loopet ind?
jeg tænker det kan være arInput(lRow, xcol) og at xcol så +1 til sidst?

Ligeledes kunne det være fedt hvis det kunne løbe alle ark igennem og ikke kun current, men det er mindre vigtigt.