Copy Paste Values based on a certain cell value

[rahulsteel]

I have searhced a lot but have not found any vaible solution for this.
I want to know if there is any macro for this

I have a list of columns in sheet 1 like this

Group a Group B

123 456
231 415
122 313
122 122

in Sheet 2, if cell A1 = "Group a", then all the column contents are to copied. For Eg A2 should be 123, A3 should be 231, A4 should be 122 and so on.

Please advice

 

[PCL]

Do you want to make copy only of column A ??

 

[PCL]

See next code, to be launched from sheet 1

Option Explicit


Sub CopuColumn()
Dim j As Integer
Dim F
    For j = 1 To Cells(1, Columns.Count).End(xlToLeft).Column
        Set F = Sheets("Sheet2").Rows(1).Find(Cells(1, j), LookIn:=xlValues, Lookat:=xlWhole)
        If (Not F Is Nothing) Then
            Range(Cells(2, j), Cells(Rows.Count, j).End(3)(2)).Copy F(2)
        End If
    Next j
End Sub

 

[rahulsteel]

Thanks