Problema: Ultima celda de columna vacía

Buen día mi problema es el siguiente
Tengo una macro en excel la cual genera un archivo solo que quisiera validar el dato de la fila ingresada por el usuario y la ultima celda con con valor para crear el archivo y no crear espacios en blanco dentro del archivo
La macro es:
RangeTwo = InputBox("Indique ahora cual es la última operación :", "Rutina XML Seniat")
If Not IsNumeric(RangeTwo) Or Empty Then
MsgBox "Ingrese el valor numérico de filas deseadas"
RangeTwo = ""
Exit Sub
End If
MyRow = 5
LastRow = RangeTwo
For Fila = MyRow To LastRow + 4
Inicial = 1
Final = 1
-->
Dim UltCol As Integer
Dim NewCol As Integer
UltCol = Cells(3, Cells.Columns.Count).End(xlToLeft).Column
NewCol = UltCol + 4
If NewCol = "" Then
MsgBox "Creando archivo"
GoTo Mak:
Exit Sub
Else
MsgBox "Coloque el numero correcto de filas con registro"
Exit Sub
End If
Mak:
<--
Next Fila
Cells(1, 10).Select
Selection.NumberFormat = " ########"
Cells(1, 16).Select
Selection.NumberFormat = " ####"
y creo el archivo antes de meter el código entre flechas lo creaba pero me di cuenta de la validación de celdas vacías y solo me interesa las filas con valores principalmente validar la columna c
Espero su ayuda muchas gracias
[email protected]