hello

My apoligies if I am not forwarding this query in the correct format
Hoping that someone may be able to assist with my issue
I have a Userform that I load data (from a different worksheet)
The load fucntion is working fine, yet when I try to move updated data (from the userform) back to my data worksheet, the line is duplicated instead of replacding the data in the current row


Workbooks.Open Filename:= _
"T:\sh_proc\SHP-Specialized Folder\CSRush\CSRushData.xlsm"
ActiveSheet.Unprotect Password:="team"
Worksheets("Data").Select



'Check Transaction Type

Dim rng As Range


Application.ScreenUpdating = False
If rng Is Nothing Then GoTo skip
For Each c In rng
If r = 0 Then c.Select
r = r - 1
Next c
skip:
Set c = ActiveCell

c.Value = TbTicket ' write amendments to database



c.Offset(0, 0).Value = CSRushRequest.TbTicket.Value
c.Offset(0, 1).Value = CSRushRequest.TextBox3.Value
c.Offset(0, 2).Value = CSRushRequest.TextBox5.Value
c.Offset(0, 3).Value = CSRushRequest.TextBox3.Value
c.Offset(0, 4).Value = CSRushRequest.TxtName
c.Offset(0, 5).Value = CSRushRequest.ComboBox9.Value
c.Offset(0, 6).Value = OB20Value
c.Offset(0, 7).Value = OB25Value
c.Offset(0, 8).Value = OB30Value
c.Offset(0, 9).Value = CSRushRequest.TextBox6.Value
c.Offset(0, 10).Value = CSRushRequest.TxtEsr.Value
c.Offset(0, 11).Value = CSRushRequest.TxtAccount.Value
c.Offset(0, 12).Value = CSRushRequest.TextBox4.Value
c.Offset(0, 13).Value = CSRushRequest.ComboBox7.Value
c.Offset(0, 14).Value = CSRushRequest.ComboBox6.Value
c.Offset(0, 15).Value = CSRushRequest.TbComments
c.Offset(0, 16).Value = CSRushRequest.TextBox7.Value
c.Offset(0, 17).Value = CSRushRequest.TextBox3.Value
c.Offset(0, 18).Value = CSRushRequest.ComboBox8.Text
c.Offset(0, 19).Value = CSRushRequest.TextBox8.Text
c.Offset(0, 20).Value = CSRushRequest.TextBox3.Value
c.Offset(0, 21).Value = CSRushRequest.TxtName