Copying Data

[KenPopcorn]

I swear this worked at one point but now gives a '1004' runtime error. What I am trying to accomplish is have the user display a line of data on a userform, modify it, then write it back to another sheet in the workbook.

My code:

Sub WriteData()
Dim target As Long
ActiveScreenUpdating = False
target = Range("B19").Value
'
If target > Sheets("WORK").Range("B3") Then
MsgBox ("Invalid Line Number")
GoTo ExitSub
End If
Sheets("GROUP 1").Range(target, 1) = Range("D19")
Sheets("GROUP 1").Range(target, 4) = Range("F19")
Sheets("GROUP 1").Range(target, 3) = Range("H19")
Sheets("GROUP 1").Range(target, 5) = Range("J19")
Sheets("GROUP 1").Range(target, 11) = Range("D22")
Range("B19").Activate
ExitSub:

End Sub

Please help this noob!

Thanks

 

[sijpie]

If I work with fixed cells like this (not too many) then I give each cell a name, and use the name in the macro (Range("MyName")). That way if I delte or add rows or columns, the macro still works.