Copy column B sheet1 and sheet2 1st row  and paste the data to sheet3

Sachin Singh
Sachin Singh used Ask the Experts™
on
Copy column B sheet1 and sheet2 1st row  and paste the data to sheet3
plz see the sample file
OneClick.xlsb
Comment
Watch Question

Do more with

Expert Office
EXPERT OFFICE® is a registered trademark of EXPERTS EXCHANGE®
Excel & VBA Expert
Most Valuable Expert 2018
Awarded 2015
Commented:
Please give this a try...
Sub CopySheet1AndSheet2ToSheet3()
Dim ws1 As Worksheet, ws2 As Worksheet, ws3 As Worksheet
Dim lr As Long
Application.ScreenUpdating = False
Set ws1 = Sheets("Sheet1")
Set ws2 = Sheets("Sheet2")
Set ws3 = Sheets("Sheet3")
ws3.Cells.Clear
lr = ws1.Cells(Rows.Count, 2).End(xlUp).Row
ws2.Range("A1:T1").Copy
ws3.Range("A1").Resize(lr - 1).Insert
ws1.Range("B2:B" & lr).Copy ws3.Range("C1")
Application.ScreenUpdating = True
End Sub

Open in new window

Author

Commented:
Thnx Neeraj Sir for ur great support
Subodh Tiwari (Neeraj)Excel & VBA Expert
Most Valuable Expert 2018
Awarded 2015

Commented:
You're welcome Sachin!

Do more with

Expert Office
Submit tech questions to Ask the Experts™ at any time to receive solutions, advice, and new ideas from leading industry professionals.

Start 7-Day Free Trial