Dim wsh As Worksheet
Dim x, Clm As Range
Set wsh = Sheet1
If Me.ActiveControl.TabIndex = 0 Then Set Clm = wsh.Range("a7:a65536")
If Me.ActiveControl.TabIndex = 2 Then Set Clm = wsh.Range("b7:b65536")
If Me.ActiveControl.TabIndex = 5 Then Set Clm = wsh.Range("c7:c65536")
If Me.ActiveControl.TabIndex = 7 Then Set Clm = wsh.Range("d7:d65536")
If Me.ActiveControl.TabIndex = 9 Then Set Clm = wsh.Range("e7:e65536")
If Me.ActiveControl.TabIndex = 11 Then Set Clm = ws.Range("f7:f65536")
Set x = Clm.Find(Me.ActiveControl.Text, LookAt:=xlWhole)
If x Is Nothing Then
MsgBox "No records found": Exit Sub
Else
Set x = Range("A" & x.Row)
With x
.Activate
.Resize(, 26).Copy Destination:=Sheet1.Range("aa1")
End With
End If