My code:
Private Sub cmdMOVE_Click()
Dim Nam_ID As String
Dim fCol As Long
Dim wt As Worksheet
Set wt = Worksheets("Employee Training Matrix")
Nam_ID = cboEN
On Error Resume Next
With wt
fCol = .UsedRange.Find(What:=Me.cboEN, After:=.Range("NAMES"), LookIn:=xlFormulas...