Copy/paste from multiple sheets into master sheet

[chris1979]

Hi
Could you please assist
I have multiple sheets in the workbook where I want a vba code to copy till the last row and paste in the master sheet (from C12). Then go the next sheet copy till the last row and paste from the last copied line. It should create rows accordingly

Thank you
CT

 

[chris1979]

Basically I would want to copy from multiple sheets and paste to a master sheet

 

[chris1979]

Sub CombineData()
Dim Sh As Worksheet
Dim LR As Long
Application.ScreenUpdating = False
Sheets("Master").Activate
With Range("B12:K120000")
.Clear
.UnMerge
End With
For Each Sh In Worksheets
If Sh.Name <> "Master" Then

If Sh.Range("A1") <> "" And Sh.Range("A2") <> "" Then
With Sh.Range("A1").CurrentRegion
.Offset(1, 0).Resize(.Rows.Count - 1, .Columns.Count).Copy ActiveSheet.Range("C" & Rows.Count).End(xlUp).Offset(1, 0)
End With
End If

End If
Next Sh
LR = Range("C12").End(xlDown).Row
Range("B" & LR + 3) = " Thanks & Regards"
Range("B" & LR + 4) = " VM Team"

Range("C12").CurrentRegion.Borders.LineStyle = xlContinuous
Range("B2:K" & LR + 5).BorderAround , ColorIndex:=xlAutomatic, Weight:=xlThick '(lineStyle = xlContinuous, ColorIndex:=3, Weight:=xlThick)
Application.ScreenUpdating = True

End Sub

 

[chris1979]

The above code works