Visual Basics Programmierung

Sub doWork()
    Dim wb2 As Workbook
    Set wb2 = Workbooks.Open("D:\specialuser\file2.xlsx")  
    
    With Sheets(1)
        .Range("K38").Copy Destination:=wb2.Sheets(1).Cells(Rows.Count, "A").End(xlUp).Offset(1)  
        .Range("L24").Copy Destination:=wb2.Sheets(1).Cells(Rows.Count, "D").End(xlUp).Offset(1)  
        .Range("L30").Copy Destination:=wb2.Sheets(1).Cells(Rows.Count, "E").End(xlUp).Offset(1)  
        .Range("N30").Copy Destination:=wb2.Sheets(1).Cells(Rows.Count, "F").End(xlUp).Offset(1)  
        .Range("K38").Copy Destination:=wb2.Sheets(1).Cells(Rows.Count, "G").End(xlUp).Offset(1)  
        
        If Join(Array(.Range("A43"), .Range("A45"), .Range("A47"), .Range("A49"), .Range("A51"), .Range("A53")), "") <> "" Then  
            ' k.A. was du damit meinst mit der Summe von Zeilenanzahl meinst, von was ?????  ==> Nun soll überprüft werden ob in Zelle A43, A45, A47, A49, A51, A53 (Datei1) ein Wert steht wenn ja soll in der nächst freien Zelle der Spalte H (Datei2) die summe der Zeilenanzahl ausgegeben werden.  
        End If
        
        If Join(Array(.Range("B43"), .Range("B45"), .Range("B47"), .Range("B49"), .Range("B51"), .Range("B53")), "") <> "" Then  
            .Range("B43,B45,B47,B49,B51,B53").Copy  
            wb2.Sheets(1).Cells(Rows.Count, "I").End(xlUp).Offset(1).PasteSpecial SkipBlanks:=True  
        End If
        If Join(Array(.Range("L43"), .Range("L45"), .Range("L47"), .Range("L49"), .Range("L51"), .Range("L53")), "") <> "" Then  
            .Range("L43,L45,L47,L49,L51,L53").Copy  
            wb2.Sheets(1).Cells(Rows.Count, "J").End(xlUp).Offset(1).PasteSpecial SkipBlanks:=True  
        End If
    End With
End Sub