Вот как выглядит мой документ:

Мне нужно взять все данные и вырезать их, начиная с H3. Затем мне нужно вставить его, начиная с последней открытой ячейки в Column A Как показано ниже.

У меня нет установленного количества столбцов, так как каждый раз, когда есть разные суммы, я бы как-то нуждался в цикле. Также стоит отметить, что в Column H будет указана ссылка. Таким образом, ячейка H3 будет иметь ссылку на F$1 .

Я пробовал несколько разных вещей и придумывал пробелы. Любая помощь будет принята с благодарностью.

Вот мой текущий код

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
|источник

0