________________
Sub copiar()
'Contar los registros
Application.Goto Reference:="R1C1"
RwEnd = Range(Cells(6, 10), Selection.End(xlDown)).Count
'Llena el resto de los registros en las columnas L(Mes_Fiscal) y M(Mes_Año)
Range(Cells(6, 10), Cells(RwEnd, 11)).FillDown
'Copia y pega solo valores
Range(Cells(6, 10), Cells(RwEnd, 11)).Copy
Application.Goto Reference:="R1C1"
Application.CutCopyMode = False
End Sub
___________
y me copia, las celdas pero solo en 20 filas, necesito que lo haga hasta el final de los datos de la columna inmediata derecha.
de alguna manera RwEnd es = a 20.....
Ojala puedan echarme una mano ..
