VBA/Macros to Control Active Cell

Updated version: now adds records to the end.

Private Sub CommandButton2_Click()

Worksheets("RO-CT Database").Activate

lr = Cells(Rows.Count, "A").End(xlUp).Row + 1

For i = 1 To 17
Cells(lr, i) = Me.Controls("TextBox" & i)
If i = 3 Then Cells(lr, 3) = UCase(Me.Controls("TextBox" & i))
If i >= 4 Then Cells(lr, i) = Val(Cells(lr, i))
Next

End Sub



Private Sub CommandButton4_Click()

Worksheets("Daily Database").Activate

lr = Cells(Rows.Count, "A").End(xlUp).Row + 1

For i = 1 To 3
Cells(lr, i) = Me.Controls("TextBox" & 32 + i)
If i = 1 Then Cells(lr, i) = DateValue(Cells(lr, i))
If i = 3 Then Cells(lr, i) = Val(Cells(lr, i))
Next

For i = 1 To 3

Cells(lr, i + 4) = Me.Controls("TextBox" & 35 + i)
If i = 1 Then Cells(lr, i + 4) = DateValue(Cells(lr, i + 4))
If i = 3 Then Cells(lr, i + 4) = Val(Cells(lr, i + 4))
Next i

For i = 1 To 6
Cells(lr, i + 8) = Me.Controls("TextBox" & 38 + i)
If i = 1 Then Cells(lr, i + 8) = DateValue(Cells(lr, i + 4))
If i >= 2 Then Cells(lr, i + 8) = Val(Cells(lr, i + 8))
Next

End Sub