RULEZ!

Sub test()
Dim a As Long
Dim x As Long
Dim z As String
a = Cells(Rows.Count, 3).End(xlUp).Row
For x = 1 To a
z = Sheets("Arkusz1").Range("A" & x)
z = Left(a, 1)
Sheets("Arkusz1").Range("f1") = z
Next x
End Sub
Sub MakeLastFirst()
Dim r As Long
Set ws1 = Sheets("Arkusz2")
Set ws2 = Sheets("Arkusz2")

For r = 7 To Cells(Rows.Count, 3).End(xlUp).Row
ws1.Cells(r, 1) = Cells(r, 4) & " " & Cells(r, 3)
Worksheets("Arkusz1").Activate
Next r

End Sub