Skopiuj zakres wklejania

Oto jak wygląda mój dokument:

Muszę wziąć wszystkie dane i wyciąć je od H3. Następnie muszę go wkleić, zaczynając od ostatniej otwartej komórki w polu Column AJak pokazano poniżej.

Nie mam ustalonej liczby kolumn, ponieważ za każdym razem są różne kwoty, więc potrzebuję pętli. Należy również zauważyć Column H, że będzie w nim odniesienie. Więc H3komórka miałaby odniesienie do F$1.

Próbowałem wielu różnych rzeczy i wymyśliłem puste. Każda pomoc byłaby bardzo mile widziana.

Oto mój obecny kod

Sub copyOnMatch()

Dim h As Worksheet 'where is the data copied from
Dim finalrow As Integer
Dim i As Integer 'row counter
Set h = Sheet1
Application.ScreenUpdating = False

'reportsheet.Range("A2:L200").ClearContents


h.Select
finalrow = Cells(Rows.Count, 1).End(xlUp).Row
Factor = Range("H3").Value

For i = 2 To finalrow
    If Factor > 0 Then
    Range(Cells(i, 8), Cells(i, 14)).Cut
    Range("A20000").End(xlUp).Offset(1, 0).PasteSpecial xlPasteFormulasAndNumberFormats
    End If
Next i

h.Select
Range("B2").Select

End Sub