copy data from sheet to another with ignore blank cells

Hi Leopard

In the attached revised file,  I've just used a simple loop to go BACKWARDS up the copied data, deleting any rows with blanks in C:H. I've made some changes to your code (in bold) and added explanatory comments (as below).

Sub testest()
    Dim lrow, lrow1 As Long
    Dim rng As Range, n As Long

    lrow = Sheet1.Range("T" & Rows.Count).End(xlUp).Row
    'clear sheet2
    Sheet2.UsedRange.EntireRow.Delete
    'copy/ paste data
    Sheet1.Range("T3:AA" & lrow).SpecialCells(xlCellTypeVisible).Copy
    Sheet2.Range("A1").PasteSpecial
    'remove copy dotted lines
    Application.CutCopyMode = False
    'get last row of copied data
    lrow1 = Sheet2.Range("A" & Rows.Count).End(xlUp).Row
    'speed up for next part
    Application.ScreenUpdating = False
    ' loop backwards through sheet2
    For n = lrow1 To 2 Step -1
        Set rng = Sheet2.Range("c" & n & ":h" & n)
        If Application.WorksheetFunction.CountBlank(rng) = rng.Cells.Count Then rng.EntireRow.Delete
    Next n
    Application.ScreenUpdating = True
    Sheet2.Range("A1").Select
End Sub

Note however that using the worksheet function seems to slow the code down a lot (even with screen updating disabled) so you'll need to wait a bit until the results appear on sheet2 (which leaves me empty).

Hope this makes sense and helps.