Copy & Pasting Data Into New Sheet

[ai1094]

Hi,

I have a simple ask. I have an excel workbook that is broken up into 3 different sheets. I would like to have a VBA code that lets me take all those 3 sheets and consolidate it into one sheet. All column fields are the same, they are just broken into 3 different regions. However, sometimes there can be more/less entries so I need the VBA code to find the last row containing data.

How would I do this? Thanks.

 

[ai1094]

Originally no, but because my current macro isn't working for the other user I have to resolve to an alternative method, which is copying and pasting the information from the sheets into the master file.

So in this case, yes, I intend to always have the master file blank until the 3 sheets are refreshed and ready to be copied over

 

[Fluff]

In that case we can go back to the first code I supplied, with a slight mod.

Sub ai1094()
   Dim i As Long
   
   Sheets("Master File").Delete
   Sheets(1).Copy Sheets(1)
   ActiveSheet.Name = "Master File"
   For i = 3 To Worksheets.Count
      With Sheets(i)
         .Rows("2:" & .Range("A" & Rows.Count).End(xlUp).Row).Copy Range("A" & Rows.Count).End(xlUp).Offset(1)
      End With
   Next i
End Sub

 

[ai1094]

Okay, I am still having some issues, but the important thing is you provided me the code I needed. I will play around with it some more to see if I can figure it out on my own. Thanks so much Fluff, you never let me down!

 

[Fluff]

You're welcome & thanks for the feedback.
You know where to come if you have any problems