Seleccionar rango variable en autocompletar

buenos días, tengo una serie de rangos de datos en forma vertical (columna C) y requiero en las celdas contigua (columna B) autocompletar fórmulas, mediante la macro que adjunto, pero al iniciar el segundo rango tengo problemas con su definición. Agradezco de antemano su ayuda.

Saludos

With Sheets("AB")
' Dim LastRow As String
Range("C5").End(xlDown).Select
uf = ActiveCell.Row
' Dim LastRow As Long
LastRow = ActiveSheet.Range("C" & uf).Row
Range("B5").Select
ActiveCell.FormulaR1C1 = "CELTEC"
Range("B5").Select
Selection.AutoFill Destination:=Range("B5:B" & LastRow)
' Dim LastRow As String
Range("C5").End(xlDown).Select
ActiveCell.Offset(4, 0).Select
Selection.End(xlDown).Select
uf = ActiveCell.Row
' Dim LastRow As Long
LastRow = ActiveSheet.Range("C" & uf).Row
Range("B5").End(xlDown).Select
ActiveCell.Offset(4, 0).Select
ActiveCell.FormulaR1C1 = "AMAGUAÑA"
Selection.AutoFill Destination:=Range(" :B" & LastRow)
End With
End Sub