Кнопка Userform Next and Previous - Показать и go для следующей и предыдущей записи в Активном листе

Question

У меня проблемы со следующими и предыдущими кнопками в пользовательской форме в Excel. Проблема, с которой я сталкиваюсь, заключается в том, что кнопки управления выполняют поиск в ActiveSheet verus sheet1. Я полагаю, что получил правильный код на следующей и предыдущей кнопках, но я не могу получить LoadRow для загрузки текущей строки с активного листа. Любая помощь очень ценится.

Код следующей кнопки:

Private Sub cmdnext_Click()
Dim CurrentRow As Long
     With ActiveSheet
    If CurrentRow < ActiveSheet.Cells(Rows.count, 2).End(xlUp).Row Then
    CurrentRow = CurrentRow + 1
    cmdnext.Enabled = True
    LoadRow 
    If CurrentRow = 2 Then
    MsgBox "This is the first entry."
   End If
    End If
    End With
 End Sub

Это предыдущий код кнопки:

Private Sub cmdprevious_Click()
 Dim CurrentRow As Long
  With ActiveSheet
   If CurrentRow > 2 Then
    CurrentRow = CurrentRow - 1
    cmdprevious.Enabled = True
    LoadRow
    If CurrentRow = 2 Then
        MsgBox "This is the first entry,"
        End If
   End If
   End With
   End Sub

Это подпункт загрузки:

Private Sub LoadRow()      
   With ActiveSheet
    txtname.Text = .Cells(wrow, 1)
    txtposition.Text = .Cells(wrow, 2)
    txtassigned.Text = .Cells(wrow, 3)
    cmbsection.Text = .Cells(wrow, 4)
    txtdate.Text = .Cells(wrow, 5)
    txtjoint.Text = .Cells(wrow, 7)
    txtDAS.Text = .Cells(wrow, 8)
    txtDEROS.Text = .Cells(wrow, 9)
    txtDOR.Text = .Cells(wrow, 10)
    txtTAFMSD.Text = .Cells(wrow, 11)
    txtDOS.Text = .Cells(wrow, 12)
    txtPAC.Text = .Cells(wrow, 13)
    ComboTSC.Text = .Cells(wrow, 14)
    txtTSC.Text = .Cells(wrow, 15)
    txtAEF.Text = .Cells(wrow, 16)
    txtPCC.Text = .Cells(wrow, 17)
    txtcourses.Text = .Cells(wrow, 18)
    txtseven.Text = .Cells(wrow, 19)
    txtcle.Text = .Cells(wrow, 20)
    txtnote.Text = .Cells(wrow, 21)
   End With
End Sub