Sub Merge_ABC()
Dim rng As Range, ws As Worksheet
Set ws = Sheets("Report")
ws.Cells.ClearContents
Sheets("WorkA").UsedRange.Copy ws.Range("A1")
Sheets("WorkB").UsedRange.Copy ws.Range("A" & ws.Range("A65536").End
(xlUp).Row + 3)
Sheets("WorkC").UsedRange.Copy ws.Range("A" & ws.Range("A65536").End
(xlUp).Row + 3)
End Sub