вставить данный из другого листа в значениях

[Aleksandr H.]

тогда я бы считал непустые "вручную"

Sub макрос2()
    Dim lastRow
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    On Error Resume Next
    Sheets("ин").Delete
    Application.DisplayAlerts = True
    Worksheets.Add.Name = "ин"
    With Sheets("Инвойс")
        lastRow = 2
        Do While .Cells(lastRow, 1) <> ""
            lastRow = lastRow + 1
        Loop
        .Range("A2:T" & lastRow - 1).Copy
        Sheets("ин").Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
                                            SkipBlanks:=False, Transpose:=False
    End With
    Application.CutCopyMode = False
End Sub

[Iskin]

Спасибо еще раз!