Makro: Selektieren, in Tabellenblatt kopieren

Sub makro()
Dim i As Long
Dim z As Long
z = 15
Sheets("Herstellungskosten").Select
For i = 1 To Range("C65536").End(xlUp).Row
If Cells(i, 3).Value = CZK Then
Cells(i, 1) = a 'hier steht Text
Cells(i, 2) = b 'hier steht eine Währung
Cells(i, 4) = c 'hier steht eine Zahl
Sheets("Tabelle1").Select
Cells(z, 2) = a
Cells(z, 3) = b
Cells(z, 5) = c
z = z + 1
End If
Next i
End Sub