Hvordan undgår jeg at kopiere 'tomme' linier?

Anvend filter / fravælg 0'er / kopier o.s.v.

Men hvordan automatisere jeg det?

Denne er lavet under forudsætning af arknavne A og B, samt at den tæller 100 rækker ned. Ellers må du lige tilpasse:

Sub Fjern_nullinier()
    Sheets("A").Rows("1:1").Insert Shift:=xlDown
    Range("A1").CurrentRegion.Select
    Selection.AutoFilter
    Selection.AutoFilter Field:=1, Criteria1:="<>0", Operator:=xlAnd
    Sheets("A").Rows("1:100").SpecialCells(xlCellTypeVisible).Copy
    Sheets("B").Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("A").ShowAllData
    Sheets("A").Rows("1:1").Delete
End Sub

jeg har netop arbejdet med stort set det samme problem og vha. eksperten.dk fundet en god løsning, der burde kunne modificeres en smule og fungere for dig:

http://www.eksperten.dk/spm/927578

Er du kommet videre?