Foro de programacion

Hola amigos quiciera porfavor si m pudiesen orientar respecto a poder modificar un macro para poder volver la subrutina q programe a una funcion q m permita colocar el ultimo numero insertado en un rango q va desde ad2 a av2, q se pueda generalizar a cualquier rango, y posicion inicial, y q se muestren en las casillas de la columna aw

Sub Casilla_Vacia1()
Dim Casilla_Inicio As Integer
ActiveSheet.Range("ad2").Activate
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(0, 1).Activate
Loop
ActiveCell.Offset(0, -1).Select
Range("aw2") = ActiveCell.Value
End Sub

mil gracias