Need to copy some data from workbook A to Workbook B

Brad_Yundt  Thanks for all the help you've given me previously.  Now I'm back with more tribulations.!  Experiencing some code that works sometime and sometimes doesn't.  When I have a row of data from the Entry worksheet I call this sub (PostAddr).  I have the Entry sheet on the screen, check to make sure I have data to post.  I haven't cracked the code to switch to the Data sheet in the data workbook.  Using this statement :  Set wsData = Workbooks(dataName).Worksheets("Data")  seems to execute properly, but anything I have come up with for the next statement fails with a 1004 error. e.g. wsData.Rows("4:4").Select.  If I skip this statement and go to the next statement:

Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove a blank row 4 is inserted on the Entry worksheet .  I know I'm missing something fundamental but can't figure out what.

As always, thanks for any help you can give.

failing code below

Option Explicit
Public iCurrentRow As Integer
Public entryName As String
Public dataName As String
Public bEntryOpen As Boolean
Public bDataOpen As Boolean
Public wsData As Worksheet
Public wsEntry As Worksheet
Public rgEntry As Range
Public rgData As Range
Public cel As Range '??
Public Const lastRow As Long = 20000

Sub PostAddr()
'
' PostAddr Macro
' Post entry data to data sheet
'
' Keyboard Shortcut: Ctrl+Shft+A
'
Dim mySpace As String
Dim longAddress As String
Dim addrLen As Integer

Application.ScreenUpdating = False

If CheckForDuplicateAddress = True Then Exit Sub

mySpace = " "

' check to make sure there is data to post
ThisWorkbook.Worksheets("Entry").Select
addrLen = Len(Trim(Range("B9")))
If addrLen < 5 Then
Call ShowPreviousEntry
Exit Sub
End If

' insert a blank row pushing existing rows down
Set wsData = Workbooks(dataName).Worksheets("Data")
wsData.Rows("4:4").Select
' Set rgData = Rows("4:4")
' rgData.Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
'.....

end sub

Brad_Yundt 

Thanks again for the prompt response.  I just realized the response I sent to you did not go because this system did not like .txt files.  I've attached a sample of the first part of my code.  What I would like to be able to open the data workbook (dataName which is "JustSoldData.xlsb) in the GetDataFile sub.  Thanks again for your help and your patience.  (It's embarrassing how much I've forgotten in the 10 years since I did any VB or VBA.)   Code follows:

Option Explicit
Public iCurrentRow As Integer
Public entryName As String
Public dataName As String
Public bEntryOpen As Boolean
Public bDataOpen As Boolean
Public wsData As Worksheet
Public rgEntry As Range
Dim cel As Range

Private Sub workbook_open()
Call GetEntryFile
Call GetDataFile

' MsgBox "we did it"

End Sub

Function IsWorkbookOpen(ByVal WorkbookName As String) As Boolean

' Returns True if the specified workbook is found open in the current instance of excel
On Error Resume Next
IsWorkbookOpen = CBool(Len(Workbooks(WorkbookName).Name) <> 0)
On Error GoTo 0
End Function
Public Sub GetEntryFile()
Dim srcFilePath As Variant
Dim controlname As String
srcFilePath = ThisWorkbook.FullName

entryName = ThisWorkbook.Name
bEntryOpen = IsWorkbookOpen(entryName)
If Not bEntryOpen Then MsgBox "Entry workbook failed to open", vbCritical, "Entry Workbook Open Failed"

ThisWorkbook.Worksheets("Entry").Range("B22").Value = srcFilePath
End Sub

Public Sub GetDataFile()
Dim dataFilePath As Variant
Dim wbx As Workbook
MsgBox ("Please select the file containing the data for Neighbors")
dataFilePath = Application.GetOpenFilename _
("Excel files (*.xls, *xlsx, *xlsm, *xlsb")
If dataFilePath = False Then Exit Sub
dataName = Right(dataFilePath, Len(dataFilePath) - InStrRev(dataFilePath, _
Application.PathSeparator))
bDataOpen = IsWorkbookOpen(dataName)
If Not bDataOpen Then MsgBox "Data workbook (file) failed to open", vbCritical, "Data Workbook Open Failed"

ThisWorkbook.Worksheets("Entry").Range("E22").Value = dataFilePath
end sub