Simple Looping Help

Hi,

I have data in Range A3:A33 in an activesheet. I have the following piece of code that edits the data in range A3 and pastes a new value into C3. Could someone help me write a loop that cycles through each cell in the range of data and performs the editing task?

Sub length()

Dim PlayerName As String
Dim PlayerName2 As String

PlayerName = Range("A3")
'PlayerName2 = Left(PlayerName, InStr(PlayerName, " "))
PlayerName2 = Left(PlayerName, InStr(InStr(1, (PlayerName), " ") + 1, (PlayerName), " "))
Range("C3") = PlayerName2

End Sub

Many thanks