Macro para Autofill

Buenos días Fserrano: necesito una macro para autorrellenar las celdas contiguas a varios rangos verticales, la que he diseñado me llega hasta la primera línea del segundo rango, el problema está en que no reconoce el rango de la celda activa para continuar, espero haber dejado claro mi problema y de antemano agradezco por la ayuda.

Edirm

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