Macro to copy the data under the specified name from one sheet

[hattisaeed]

hi i am using varColumn right now the code is as follows

Sub finds(strName As String)
'
' finds Macro
   Dim wksHSE            As Excel.Worksheet
   Dim wksEmp            As Excel.Worksheet
   Dim varColumn

   Set wksEmp = Sheets("Emp Ind HSE")
   Set wksHSE = Sheets("HSE_Matrix")

   ' find employee column on matrix sheet
   varColumn = Application.Match(strName, wksHSE.Range("7:7"), 0)
   If IsError(varColumn) Then
      ' no match so display error message
      MsgBox "No match found for employee: " & strName
   Else
      ' copy employee data across
      wksHSE.Cells(9, varColumn).Resize(43, 1).Copy Destination:=wksEmp.Range("H8:H50")
      wksEmp.Range("c5").Value = wksHSE.Cells(53, varColumn).Value
   End If

End Sub

Write now it copies the data under the name which is in a merged cell i want it to copy all the 4 columns i.e the next three as well and then paste it into specified cells on another sheet