Selección de celdas variables
Hola Expertos! Estoy trabajando en excel 2010 y tengo una macro que busca un valor y selecciona un rango a partir del valor encontrado, luego lo copia y lo inserta en otra columna. En estos momentos solo puedo hacer que seleccione un rango determinado. Lo que necesito es cambiar ese valor de rango por un número de filas determinadas, específicamente: 3 celdas hacia abajo, mi código es el siguiente
Sub ORGANIZA()
On Error Resume Next
Dim columna As String
Dim nueva As String
inicio:
columna = InputBox("¿En cuál columna está la dependencia que quieres Alinear?")
If columna = "" Then Exit Sub
If columna = "a" Then Exit Sub
If columna = "b" Then Exit Sub
If columna = "c" Then Exit Sub
Columns("C:C").Select
Selection.Find(What:="Finanzas Públicas").Select
Range(Selection, "C800").Select 'Aquí quiero remplazar "C800" por las celdas variables
Selection.Copy
Range(columna & 2).Select 'este valor también lo cambio
Selection.Insert Shift:=xlDown
'estas instrucciónes se repiten con diferentes valores en el buscador.
nueva = MsgBox("¿Quieres seguir trabajando o ya le paramos?", vbQuestion + vbYesNo, "REPETIR")
If nueva = vbYes Then GoTo inicio
End Sub
En resumen que donde encuentre el valor, en lugar de copiar a partir de ese valor hasta C800, que solo seleccione 3 celdas a partir de el, si lo encuentra en C200, que seleccione C200:C203.
Espero me puedan ayudar! Gracias expertos