Sub ZellenKopieren()
Dim a As Long
Dim b As Long
Dim c As Long
Dim letzteZeileInS2 As Long
letzteZeileInS2 = Sheets(2).UsedRange.SpeacialCells(xlCellTypeLastCell).Row
Dim letzteZeileInS1 As Long
For a = 2 To letzteZeileInS2
letzteZeileInS1 = Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row
c = letzteZeileInS1 +1
For b = 2 To c
IF Sheets(2).Cells(a,1).Value <> Sheets(1).Cells(b,1).Value Then
Sheets(1).Cells(c,1) = Sheets(2).Cells(a,1)
Sheets(1).Cells(c,2) = Sheets(2).Cells(a,5)
...
End If
Next b
Next a
End Sub