last row lookup failure

[wwbwb]

this code I adapted from an earlier project. It's supposed to take the textboxes and put them in the first available row within the given range. But it keeps putting the information always in the same spot, overwriting anything that is there. It also ignores the fact that there is already rows that are filled. Any ideas?

Dim LastRow As Object

          Set LastRow = Sheets("Details").Range("a83").End(xlUp)

          LastRow.Offset(1, 1).Value = TextBox1.Text
          LastRow.Offset(1, 0).Value = TextBox2.Text
          LastRow.Offset(1, 2).Value = TextBox3.Text
                    
          response = MsgBox("Do you want to enter more?", _
              vbYesNo)

          If response = vbYes Then
              TextBox1.Text = ""
              TextBox2.Text = ""
              TextBox3.Text = ""
                          
              TextBox1.SetFocus

          Else
              Unload Me
          End If
End Sub

 

[TommyGun]

Probably need to adjust "A83" to "A65536".

 

[wwbwb]

Probably need to adjust "A83" to "A65536".

Row 83 has totals in it. If I put A65536 in, it works just fine, except all the data goes under row 83, negating the totals row. The area I have set for this information is row 50 to 82 with the totals in 83.

 

[north19701]

are the values continuing to fill down in column A? That's where your code is looking to find the last used cell.

 

[wwbwb]

are the values continuing to fill down in column A? That's where your code is looking to find the last used cell.

Why yes... silly me! Thanks. I think I will go hide in my little hole now.