finding the value and paste in another sheet .

[MINCUS1308]

Sub test()
     Dim FoundSrc As Range
      
     Set FoundSrc = Sheet1.Rows(1).Find("Weight(kg)")
     If Not FoundSrc Is Nothing Then
         Sheet1.Range(FoundSrc.Address).EntireColumn.Copy
         Sheet2.Paste (Cells(1, 1))
     End If
End Sub