Here is some code for you to try. Note the issue in the previous post.
Option Explicit
Sub Merge()
Dim ws As Worksheet
Sheets.Add.Name = "Master"
Dim lr As Long
Dim lr2 As Long
Dim rng As Range
Set rng = Sheets("Sheet1").Range("A1, C1, D1")
Dim rng2 As Range
Application.ScreenUpdating = False
rng.Copy Sheets("Master").Range("A1")
For Each ws In Worksheets
If ws.Name <> "Master" Then
lr = ws.Range("A" & Rows.Count).End(xlUp).Row
lr2 = Sheets("Master").Range("A" & Rows.Count).End(xlUp).Row
Set rng2 = Union(ws.Range("A2:A" & lr), ws.Range("C2:C" & lr), ws.Range("D2:D" & lr))
rng2.Copy Sheets("Master").Range("A" & lr2 + 1)
End If
Next ws
Application.CutCopyMode = False
Application.ScreenUpdating = True
MsgBox "complete"
End Sub
Bookmarks