Good evening to all,

I have some problems with developing a macro that will copy only unhidden cells in selected range for witch selected range = A7:V?, ? = last full cell in A.

I have next code:

Sub CopyINnewWORKBOOK()


Workbooks.Open Filename:="C:\User\NEW.xlsx"
On Error Resume Next
With Workbooks("NEW.xlsx")
LR = .Sheets("TOTAL").Range("A" & Rows.Count).End(xlUp).Row
Workbooks("TEST").Sheets("Tabela").Range("A7:V3000").Copy
Windows("NEW.xlsx").Activate
Sheets("TOTAL").Range("A" & LR + 1).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
ActiveWorkbook.Close SaveChanges:=1
End With

End Sub
and sub that if finds last full cell in H and selects range:

Dim icell As Long, LR As Long

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

For icell = LR To 1 Step -1
If Range("H" & icell).Value > 0 Then
Range("A7:V" & icell).Copy
Exit For
End If
Next icell
Your help will be much appreciated.