Pessoal, estou com uma duvida para determinar o range no código abaixo, podem me ajudar?

Dim ponto As Range

ponto = Range("A1").End(xlToRight).Offset(0, 1).End(xlDown).Select

Do Until ponto.Value = "."

Range("A4").Activate

If ActiveCell.Value = "" Then
ActiveCell.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
ActiveCell.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
ActiveCell.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
ActiveCell.Offset(0, 1).Activate
Else: ActiveCell.Offset(0, 1).Activate
End If

Loop
End Sub

Preciso que quando o valor do range "ponto" for = ".", o loop pare, mas estou tendo um erro para determinar a célula que tem o "."