Macro to copy row values based on a identical column headers

[Vijaya Pratap]

I am pretty new to VBA/Macros. Here is my requirement looking for a solution. I would require a macro, which identifies the row values by Column heading and returns those cell values in another worksheet with the same column headers on the same workbook. These columns are at different ranges on two worksheets and has the cell values starting at different ranges. For example, I have a workbook, with worksheets Summary (Sheet1) and January (Sheet2), I need four columns from Sheet2 (January) starting from Column No. 22 to 25 & rows values in the cells are starting at row 4 and onwards, macro should run to exclude the headers from this sheet and return the values under these columns to Sheet 1(Summary)with the same column headers ranging from column no. 10 to 13 and cell values should begin from row 18 onwards. Hope you have a clear picture of my requirment. Please ask me for any additional questions. Thanks for your help in advance. Please see the attached sample workbook for your reference.

 

[hippiehacker]

Sub pratap()
Dim sh1 As Worksheet, sh2 As Worksheet, lastr1 As Long, lastr2 As Long

Set sh1 = Sheets("Sheet1")
Set sh2 = Sheets("Sheet2")
If sh1.Range("J18") = "" Then
lastr1 = 18
Else
lastr1 = sh1.Range("J" & Rows.Count).End(xlUp).Row
End If
lastr2 = sh2.Range("V" & Rows.Count).End(xlUp).Row
sh2.Range(Cells(4, 22), Cells(lastr2, 25)).Copy _
 sh1.Range("J" & lastr1)
End Sub

 

[Vijaya Pratap]

Hello hacker, Thank you so much for your response.