fastest way to copy multiple range to multiple sheets

[chingilou]

thanks snb it's exactly what i do but i can't post yesterday

[chingilou]

i tried to post yesterday several times but a message came all the time something like the post reached its limit

[jolivanes]

Thanks both Sam & snb.
Gives me something to work on/with again.

[chingilou]

sorry that's right
as i say what i liked to post yesterday was my thanks for you and samT
if I could have posted my new file you will see a module with name jolivanes
nevertheless thank you very much Jolivanes ,samT & snb

[chingilou]

hello everyone sorry to resume this old thread
how to do with snb code

Sub snb()
    Dim sn As Variant
    sn = Feuil1.Cells(10, 1).CurrentRegion.Offset(1)
    Feuil2.Cells(14, 1).Resize(UBound(sn), 4) = Application.Index(sn, Evaluate("row(7:" & UBound(sn) & ")"), Array(1, 2, 4, 3))
    Feuil3.Cells(14, 1).Resize(UBound(sn), 4) = Application.Index(sn, Evaluate("row(7:" & UBound(sn) & ")"), Array(1, 2, 5, 3))
    Feuil4.Cells(14, 1).Resize(UBound(sn), 4) = Application.Index(sn, Evaluate("row(7:" & UBound(sn) & ")"), Array(1, 2, 6, 3))
    Feuil5.Cells(19, 3).Resize(UBound(sn), 3) = Application.Index(sn, Evaluate("row(7:" & UBound(sn) & ")"), Array(1, 2, 4))
    Feuil5.Cells(19, 7).Resize(UBound(sn), 1) = Application.Index(sn, Evaluate("row(7:" & UBound(sn) & ")"), Array(3))
End Sub

if i don't want to copy what is below the table (outside the table)
the table starts in 10.1 and ends in maximum in 196.6

[chingilou]

an empty line added below the table solve the problem