Consegui resolver com esse código:
Sub alteraTeste()
For contador = 2 To Range("J1")
Range("H" & contador) = Left(Range("H" & contador), 5)
Next
End Sub
Gostei bastante das dicas desse curso. Estão fazendo a diferença no meu dia-a-dia dentro da empresa onde trabalho.