Rafael Vera respondió:
Aquí tienes un ejemplo Sub CopiarCeldasEnCiclo() Dim i As Long Dim origen As Range Dim destino As Range ' Establece la celda de origen y destino iniciales Set origen = ThisWorkbook.Sheets("NombreDeTuHoja").Range("G41") Set destino =...