Visible cells not copying all visible cells

[mahmed1]

Hi All,

Can you please advise where im going wrong

Im trying to copy all visible cells once filtered and paste into cell A2 but i can see that its missing several missing cells when copying and pasting over but i dont know why its doing that

This is my code

Application.GoTo wsSheet2.Range("A1"), False

wsSheet2.Range("A1:T1").AutoFilter Field:=15, Criteria1:="<>0"
    wsSheet2.Range("A1:T" & lRowCount).SpecialCells(xlCellTypeVisible).Offset(1).Select
    Selection.Copy
    wsSheet.Range("A2").PasteSpecial xlPasteValuesAndNumberFormats

 

[Fluff]

How are you calculating lRowCount?

 

[mahmed1]

Hiya - please see below how lrowcount is defined - it is actually highlighting until last row but it misses visible data in between which is total weird

I changed from
wsSheet2.Range("A1:T" & lRowCount).SpecialCells(xlCellTypeVisible).Offset(1).Select
to
wsSheet2.Range("A2:T" & lRowCount).SpecialCells(xlCellTypeVisible).Select

This seems to have worked for now but i have no clue why and why original wouldnt work and skip rows that are visible

lRowCount = wsSheet2.Range("A" & wsSheet2.Rows.Count).End(xlUp).Row
    tbTable2.Resize wsSheet2.Range("A1:T" & lRowCount)
    
    wsSheet2.Columns("A:T").AutoFit
    wsSheet2.Range("A:A").NumberFormat = "DD/MM/YYYY"
    
    Application.GoTo wsSheet2.Range("A1"), False
    wsSheet2.Range("A1:T1").AutoFilter Field:=15, Criteria1:="<>0"
    wsSheet2.Range("A2:T" & lRowCount).SpecialCells(xlCellTypeVisible).Select
    Selection.Copy

 

[Fluff]

Glad you sorted it & thanks for the feedback.