Question : Copy and Paste data

Hi Experts,

I need Experts help create a macro to copy data from column C , H and J (Source sheet) and paste in Column A, C and E (Reconcile sheet). I’ve manually copied these data in Reconcile sheet for Experts to get a better view. Hope Experts could help me to create this feature.

Attached the workbook for Experts perusal.

Attachments:

Copypaste.xls (77 KB)  (File Type Details) 

xls

Answer : Copy and Paste data

This slight modification clears all contents of the to be pasted sheet before doing the copy paste

Sub Button1_Click()
Dim ws As Worksheet, ds As Worksheet
Dim lRow As Long
Set ws = ThisWorkbook.Worksheets("Source")
Set ds = ThisWorkbook.Worksheets("Reconcile")
ds.Range(ds.Cells(5, 1), ds.Cells(ds.UsedRange.Rows.Count, ds.UsedRange.Columns.Count)).Clear
lRow = ws.Range("C65536").End(xlUp).Row
ws.Range("C5:C" & lRow).Copy ds.Range("A5")
ws.Range("H6:H" & lRow).Copy ds.Range("C5")
ws.Range("J6:J" & lRow).Copy ds.Range("E5")
End Sub