Copy columns from one sheet to another if the header matches

Hi all-

I have been cracking my brain on this for hours!
The goal is to copy and paste a column whose header contains "Median" from Sheet1 into Column A of Sheet 2. Likewise copy a column which contains within it's header the word "sample" from Sheet 1 into Col B of Sheet 2 column B

Please help! Thanks in advance

 Sub testoriginal()

Dim A As Range
 
Do
    Set A = Rows(1).Find(What:="Median", LookIn:=xlValues, lookat:=xlPart)
    If A Is Nothing Then Exit Do
    A.EntireColumn.Select
    Selection.Copy
    Sheets("Sheet2").Select
    Range("A1").Select
    ActiveSheet.Paste
Loop
    Do
    Set A = Rows(1).Find(What:="Sample", LookIn:=xlValues, lookat:=xlPart)
    If A Is Nothing Then Exit Do
    A.EntireColumn.Select
    Selection.Copy
    Sheets("Sheet2").Select
    Range("B1").Select
    ActiveSheet.Paste
    Loop
End Sub