Copy Data from multiple tabs.

[stooly]

Hi guys. Sorry this has been asked before, but I couldn't get it to work with the info on the other post and as it was a bit dated, I didn't want to bump it.

So I am a total noob with VB, but I'm assuming this can be done. If I have many tabs, is there an a quick way to put all that data onto one tab? Data range is columns A to D. Different amount of lines on each tab. No headers.

Many thanks in advance!

 

[vcoolio]

Hello Stooly,

You could try this:-

Sub CopyStuff()

      Dim ws As Worksheet

Application.ScreenUpdating = False

For Each ws In Worksheets
       If ws.Name <> "Sheet1" Then   'Change "Sheet1" to your destination sheet name.
       ws.UsedRange.Copy Sheet1.Range("A" & Rows.Count).End(3)(2)
       End If
Next ws

Application.CutCopyMode = False
Application.ScreenUpdating = True

End Sub

I hope that this helps.

Cheerio,
vcoolio.

 

[stooly]

Wow, I can't express how happy I am! Thank you so much for that, I'll forget about the hours already wasted doing some of this manually :D

You're awesome!

I hope that this helps.

Cheerio,
vcoolio.

 

[vcoolio]

You're welcome Stooly. I'm glad that I was able to help.

Cheerio,
vcoolio.