I have developed an error report with a userform that when filled out populates the error report, e-mails me a copy, and fills the necessary information into another workbook. It seems to be working fine on all the workstations that we have here at work with the exception of 3 workstations. When it is run on those three I get a "subscript out of range" on those stations. The code runs up to the line where it is supposed to find the empty row in the errordata file. The code stops and returns an error at the last filled cell instead of looping to the first empty cell. I have tried looking at the various settings and have seen nothing out of the usual on these workstations. I will post the code where it stops. I would appreciate any help. Thanks in advance.

Workbooks.Open ("\\File path\errordata.xls")
Workbooks("errordata").Sheets("Data").Activate-this is the line highlighted during the debug.
ActiveSheet.Range("A2").Select
' this selects the first empty row
Do
If IsEmpty(ActiveCell) = False Then
ActiveCell.Offset(1, 0).Select
End If
Loop Until IsEmpty(ActiveCell) = True
'this copies the information into the Error Report Data file
ActiveCell.Value = Workbooks("Error Report").Sheets("Error report").Range("Customer").Value
ActiveCell.Offset(0, 1) = Workbooks("Error Report").Sheets("Error report").Range("partnumber").Value
ActiveCell.Offset(0, 2) = Workbooks("Error Report").Sheets("Error report").Range("date").Value
ActiveCell.Offset(0, 3) = Workbooks("Error Report").Sheets("Error report").Range("ordernumber").Value
ActiveCell.Offset(0, 5) = Workbooks("Error Report").Sheets("Error report").Range("errortype").Value
ActiveCell.Offset(0, 6) = Workbooks("Error Report").Sheets("Error report").Range("Name").Value[/B][/SIZE]