Indicar Rango de Celdas de un Libro en Excel a VB 6.0

[calet84]

Hola amigos :
tengo una un problema que resolver al momento de importar datos desde Excel a VB 6.0 en un Grid.

todo esta bien pero me falta espeficicar el rago de celdas de una de una hoja de un libro por ejemplo
solo las celdas que comiencen en la
columna (C11:F11)
fila (C11:C30)
donde puede variar las filas como fila (C11:C37) o fila (C11:C40)
aqui esta el codigo que he desarrollado
desde vb 6.0
sub llamada()
With CommonDialog1
.DialogTitle = " Seleccionar archivo Excel para cargar"
.Filter = "Archivos XLS|*.xls"
.ShowOpen
If .FileName = "" Then Exit Sub
Call Ruta(.FileName)
Me.Caption = .FileName

End With
Call Inicio
Call Caracteristicas
Call FormatearTabla
Call LlenadoDeTabla
sub End

Public Sub Ruta(ByVal Camino As String)
Sendero = Camino
End Sub

Public Sub Inicio()
Set ApliNudos = CreateObject("Excel.Application")
Set LibroNudos = ApliNudos.Workbooks.Open(Sendero)
End Sub

Public Sub Caracteristicas()
Set HojaNudos = LibroNudos.Sheets(1) ' libro
' para ver cuantas columnas estan llenas
Set RangoNudos = HojaNudos.Rows(1) ' hoja1 fila 1 columna 1
If (RangoNudos.Cells(1, 1) = "") Then
CeldaVacia = 0
Else
CeldaVacia = RangoNudos.Find("").Column
' Columnas = 6
End If
Columnas = CeldaVacia
' para ver cuantas filas estan llenas
Set RangoNudos = HojaNudos.Columns(1)
If (RangoNudos.Cells(1, 1) = "") Then
CeldaVacia = 0
Else
CeldaVacia = RangoNudos.Find("").Row
'Filas = 35
End If
Filas = CeldaVacia
Set HojaNudos = Nothing
Set RangoNudos = Nothing
End Sub

Public Sub FormatearTabla()
Dim Est As Integer
Est = 0
With frmPrepararRegistrosNotas.GridListadoAlumnos
.Cols = Columnas
.Rows = Filas
' .Visible = True
End With
End Sub

Public Sub LlenadoDeTabla()
Set HojaNudos = LibroNudos.Worksheets(1)
For i = 3 To Columnas - 1
frmPrepararRegistrosNotas.GridListadoAlumnos.Col = i
For j = 1 To Filas - 1
frmPrepararRegistrosNotas.GridListadoAlumnos.Row = j
frmPrepararRegistrosNotas.GridListadoAlumnos.Text = HojaNudos.Cells(j, i)
Next j
Next i
ApliNudos.Quit
MsgBox "Importacion Completa"
End Sub
pero consigo que me cambien el incremento en la fila

Gracias de Antemano.