Copy Filter Data and paste it on another workbook with special cells(Only Visible Cells)

hello
i using code to filter my 4 sheets Greater then 0(zero)

Please Login or Register  to view this content.

after apply above filter now i need to copy multiple rows and paste on another specific workbook
for paste i m using below code
for 1st sheet with the name ("V2"

Please Login or Register  to view this content.

for 2nd sheet with the name("LV")

Please Login or Register  to view this content.

For 3rd sheet with the name ("F2")

Please Login or Register  to view this content.

and 4th sheet with the name("L2")

Please Login or Register  to view this content.

if i play above code one by one all is going very well,,,,,,or
if use in this way all is going very well

Please Login or Register  to view this content.

but here is a big problem..........if any sheet have no value greater then 0(zero)....then code paste all data... e.g shssts("LV") .Range("C5:C54").Copy but C5:C54 have no data greater then 0(zero) and it will paste on another sheet c5:c54 and again new sheets data will paste below the c54 while c5:c54 have no data
so i want if any sheet have no data with range is greater then 0(Zero) then skip the copy paste code or use like SpecialCells(xlCellTypeVisible)
plz help

Hi, haroon2015,

when the Autofilter is applied check for the last visible cell in the column you applied the Autofilter to - the row number for this cell should be greater than the row number for the heading (meaning that data is available). If you compare that row number within an If-Statement the macro should only proceed with copying if the condition is met.

Ciao,
Holger

Hi, haroon2015,

I´m no friend of using On Error Resume Next in order to prevent errors that may be caught with proper proramming - sooner or later you will run into trouble as that command just treats any wrong command as if it wasn´t given which may lead to unexpected or unwanted results.

Ciao,
Holger

Hi, haroo2015,

use proper or adequate programming, fully qualified names of workbooks and worksheets.

Please Login or Register  to view this content.

Ciao,
Holger