wieder ein problem mit range() HILFE!!!

Private Sub test()
x = Cells(Rows.Count, 1).End(xlUp).Row
End Sub

Private Sub rangen()
Dim x As Integer
x = Cells(Rows.Count, 1).End(xlUp).Row
For x = 1 To Cells(Rows.Count, 1).End(xlUp).Row
range("e" & x) = range("a" & x)
Next x
End Sub

Private Sub rongen()
Dim y As Integer
y = Cells(Rows.Count, 2).End(xlUp).Row
For y = 1 To Cells(Rows.Count, 2).End(xlUp).Row
range("f" & y) = range("b" & y)
Next y
End Sub

Private Sub CommandButton1_Click()
test
rongen
rangen
End Sub