My solution

Workbooks.Open Filename:="your path.xlsx"
On Error Resume Next
With Workbooks("your worbook.xlsx")
LR = .Sheets("ABC").Range("A" & Rows.Count).End(xlUp).Row
Windows("your original worbook.xlsm").Activate

LR2 = Range("H" & Rows.Count).End(xlUp).Row

For icell = LR2 To 1 Step -1
If Range("H" & icell).Value > 0 Then
Range("A7:V" & icell).Copy
Exit For
End If
Next icell
Windows("your worbook.xlsx").Activate
Sheets("ABC").Range("A" & LR + 1).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False






ActiveWorkbook.Close SaveChanges:=1
End With


End Sub