Hi all,
I am getting stuck in my code and need help solving it. Here is the code:

Option Explicit

Sub findData()
Dim GCell As Range
Dim Txt$, MyPath$, MyWB$, MySheet$
Dim myValue As String

Dim wbMain As Workbook
Set wbMain = ThisWorkbook

Txt = InputBox("What Organization do you want to search for?")

MyPath = "C:\users\DKane\My Documents\"
MyWB = "EVHC Master Hiring Spreadsheet range find.xlsx"

Dim ws As Worksheet
Set ws = wbMain.Sheets("Sheet1")

Application.ScreenUpdating = False

Dim wbSearch As Workbook
Set wbSearch = Workbooks.Open(Filename:=MyPath & MyWB)

Set GCell = wbSearch.Sheets(1).Cells.Find(Txt)

If Not GCell Is Nothing Then


********this is were the error seems to be *****

Dim lCol As Long
lCol = wbSearch.Range("A1").End(xlToRight).Column


wbSearch.Range(Range(Range("A1"), Cells(1, lCol))).Copy ws.Range("A1")


wbSearch.Range(Range(Cells(GCell.Row, 1), Cells(GCell.Row, lCol))).Copy ws.Range("B1")

ws.Columns.AutoFit

Else

MsgBox "Org Not Found"

below are the row headings:
HR Contact (person who can answer questions about this org) Region Organization (Company.Location Code.Department) Location in Oracle format Job Title PT/FT Local Tax Element Benefits Code Benefits Code Comments (if multiple, how can MHRC determine what benefit code should be used?) Mailstop Internal Transfer? Payroll ID Local Tax Element Union Code Union Code Comments (if multiple, how can MHRC determine when to use which code?) Uniform Allowance PTO Date Drug Screen Provider (e.g. Quest, internal, Concentra) Sign-on bonus instructions (including under what circumstances each is used, if multiple)



Thanks in advance for any help.