用户表单中的某些错误将数据添加到多个工作表/表中

你能帮我解决这些错误吗？ 代码运行，但是把数据放在错误的地方，我把笔记放在下面的注释中，在这里做的是这样的…我需要在添加用户表单值之前检查重复的名字这里是我的用户表单代码：

Private Sub cmdAddVol_Click() Dim lRow As Long Dim ws As Worksheet Set ws = Worksheets("VOLUNTEERS") Dim wsArray As Worksheet For Each wsArray In Sheets(Array("VOLUNTEERS", "OCTOBER", "NOVEMBER", "DECEMBER", "JANUARY", "FEBRUARY", "MARCH", "APRIL", "MAY", "JUNE", "JULY", "AUGUST", "SEPTEMBER", "FY TOTALS")) With wsArray 'first clear all filters *(this is not working)* 'This removes any filtering in order to display all of the data but it does not remove the filter arrows If .AutoFilterMode Then If .FilterMode Then .ShowAllData End If Else If .FilterMode Then .ShowAllData End If End If 'find first empty row in database lRow = ws.Cells.Find(What:="*", SearchOrder:=xlRows, _ SearchDirection:=xlPrevious, LookIn:=xlValues).Row + 1 'check for a Name If Trim(Me.txtLastName.Value) = "" Then Me.txtFirstName.SetFocus MsgBox "Please enter First and Last Name" Exit Sub End If 'validate name is not in database *'need code for error duplicate check* 'copy the data to the database in all sheets(14) *' this is only working for VOLUNTEERS sheet, all others are not putting row in table end, but in 2 rows below table* .Cells(lRow, 1).Value = Me.cbStatus.Value .Cells(lRow, 2).Value = Me.txtLastName.Value .Cells(lRow, 3).Value = Me.txtFirstName.Value End With Next 'copy only values below in VOLUNTEERS sheet col 4 & 5 at newROw *'this in not working--its putting data in next row after 1row* With ws .Cells(lRow, 4).Value = Me.cbVolType.Value .Cells(lRow, 5).Value = Me.txtDateStart.Value 'clear the data in box Me.txtFirstName.Value = "" Me.txtLastName.Value = "" Me.cbStatus.Value = "" Me.txtFirstName.SetFocus End With End Sub Private Sub cmdClose_Click() Unload Me End Sub Private Sub UserForm_Initialize() Dim cStatus As Range Dim cType As Range Dim ws As Worksheet Set ws = Worksheets("Lists") For Each cStatus In ws.Range("lst_Status") With Me.cbStatus .AddItem cStatus.Value ''.List(.ListCount - 1, 1) = cStatus.Offset(0, 1).Value End With Next cStatus For Each cType In ws.Range("lst_Type") With Me.cbVolType .AddItem cType.Value End With Next cType Me.txtDateStart.Value = Format(Date, "Medium Date") Me.cbStatus.SetFocus End Sub Private Sub UserForm_QueryClose(Cancel As Integer, _ CloseMode As Integer) If CloseMode = vbFormControlMenu Then Cancel = True MsgBox "Please use the Close Form button!" End If End Sub