For some reason I can't get this to work. Any Ideas/Suggestions? I'm VERY new with VBA programming
If IsEmpty(wsDest.Range(UserExternalID)) Then
wsDest.Range(UserExternalID).Value = iCell.Offset(0, 1).Value
wsDest.Range(UserExternalID).Offset(0, -1).Value = iCell.Offset(0, 2).Value
wsDest.Range(UserExternalID).Offset(0, 1).Value = iCell.Offset(0, 4).Value
wsDest.Range(UserExternalID).Offset(0, 2).Value = iCell.Offset(0, 5).Value
Else
wsDest.Range(UserExternalID).Offset(-1, 0).End(x1down).Offset(1, 0).Value = iCell.Offset(0, 1).Value
wsDest.Range(UserExternalID).Offset(-1, 0).End(x1down).Offset(1, 0).Value = iCell.Offset(0, 2).Value
wsDest.Range(UserExternalID).Offset(-1, 0).End(x1down).Offset(1, 0).Value = iCell.Offset(0, 4).Value
wsDest.Range(UserExternalID).Offset(-1, 0).End(x1down).Offset(1, 0).Value = iCell.Offset(0, 5).Value
Any and All Help is appreciated thank You!!
Bookmarks