VBA find function to copy data under a heading

Hi bkav1991,

Try below code ...

Sub test()

Dim Rg As Range

With Sheets("Information")
   Set Rg = .Rows(1).Find("Origin")
   If Not Rg Is Nothing Then Range(.Cells(2, Rg.Column), .Cells(Rows.Count, Rg.Column).End(3)).Copy Sheets("Paste").Cells(1)
End With

End Sub