Miguel 70,

Boa Tarde!

Assim:

Sub Formatar_Coluna()'ate aqui tudo certo.
Dim UltimaLinha As Long
UltimaLinha = ActiveSheet.Cells(Cells.Rows.Count, 1).End(xlUp).Row + 20
Range("A9:A" & UltimaLinha).NumberFormat = "h:mm;@"
End Sub

Obrigado Wagner Morel, resolvido.