Dim i As Long
For i = Cells(Rows.Count, 3).End(xlUp).Row To 6 Step -1
If Cells(i, 8) = 0 And Cells(i, 9) = 0 And Cells(i, 10) = 0 And Cells(i, 11) = 0 Then Range("C" & i).EntireRow.Delete
I want copy those visible cells excluding above condition which I have mentioned in above code.(Code extracted from other posts).Those data will not be copied if as mentioned in above code that is either blank or zero. to another sheet "Data".
Since you've already got a filter applied in a way (you're checking for visible cell), then I'd just add another criteria to the filter to hide the cells with 0 and blank. Then it's a simpler copy & paste.
Are you saying that once you've removed rows that contain all blank/zeroes in columns H to I, you want to copy the result to another sheet, but where there is the occasional blank cell (or zero-containing cell) you don't want that blank value overwriting data that may already be in place where you're copying to?
If so, you can copy/paste-special and skip blanks:
(which can be coded).
I don't think you can skip zeroes in the same way, but you could have a two-stage process where you first copy to an intermediate location, search/replace zeroes with blanks, then copy/paste-special skipping blanks to the final location.
I'll write some code to do that if I've understood you correctly.