Macro para copiar a otra hoja ultima fila de rangos discontinuos

Tengo esta macro que me permite copiar los datos de la hoja1 a la hoja2 que funciona según lo requerido. Me gustaría modificarla para que copiara solamente las ultimas celdas de rangos discontinuos...

excel

Macros and VBA

HansVogelaar

Jan 04, 2022

a7024782

Sub Copiar_Discontinuo()
    Dim w1 As Worksheet
    Dim w2 As Worksheet
    Dim m1 As Long
    Dim m2 As Long
    Set w1 = Worksheets("Hoja1")
    m1 = w1.Range("A" & w1.Rows.Count).End(xlUp).Row
    Set w2 = Worksheets("Hoja2")
    m2 = w2.Range("A" & w2.Rows.Count).End(xlUp).Row + 1
    w1.Range("A" & m1 & ",B" & m1 & ",E" & m1 & ",Z" & m1).Copy _
        Destination:=w2.Range("A" & m2)
End Sub

HansVogelaar

MVP

Jan 04, 2022

a7024782

Sub Copiar_Discontinuo()
    Dim w1 As Worksheet
    Dim w2 As Worksheet
    Dim m1 As Long
    Dim m2 As Long
    Set w1 = Worksheets("Hoja1")
    m1 = w1.Range("A" & w1.Rows.Count).End(xlUp).Row
    Set w2 = Worksheets("Hoja2")
    m2 = w2.Range("A" & w2.Rows.Count).End(xlUp).Row + 1
    w1.Range("A" & m1 & ",B" & m1 & ",E" & m1 & ",Z" & m1).Copy _
        Destination:=w2.Range("A" & m2)
End Sub

a7024782

Brass Contributor

Jan 04, 2022

Funciono perfecto, gracias

Forum Discussion

Macro para copiar a otra hoja ultima fila de rangos discontinuos