Dear all, Happy New Year 2017 ! I have three input sheets (name “input”, “input2”,”input3” ) where having data range A1:C , these three sheets data need to be merged in to the sheet “Output” .

I have tried like below 
Sub merge()
Dim lr As Long
Dim la As Long
Dim lrr As Long

lr = Sheets("input").Range("A" & Rows.Count).End(xlUp).Row
Sheets("input").Range("A2:C" & lr).Copy Sheets("output").Range("A1")

la = Sheets("input2").Range("A" & Rows.Count).End(xlUp).Row
Sheets("input2").Range("A2:C" & la).Copy Sheets("output").Range("A1")

lrr = Sheets("input3").Range("A" & Rows.Count).End(xlUp).Row
Sheets("input3").Range("A2:C" & lrr).Copy Sheets("output").Range("A1")


End Sub