Need Userform to Write to Multiple Sheets with Different Offset Criteria

Hi,

Put this new sub code in your userform :

Sub WriteToAnotherSheet(param)
  Dim lngWriteRow As Long, ws As Worksheet, selColumn As Long
  Set ws = Worksheets("Sheet2")

  If AreaOptionButton1.Value = True Then
     selColumn = 1
  ElseIf AreaOptionButton2.Value = True Then
     selColumn = 2
  ElseIf AreaOptionButton3.Value = True Then
     selColumn = 3
  Else
     Exit Sub
  End If

  lngWriteRow = ws.Cells(Rows.Count, selColumn).End(xlUp).Offset(1, 0).Row
  If lngWriteRow < 2 Then lngWriteRow = 2
  ws.Cells(lngWriteRow, selColumn) = param
End Sub

Then you can call this sub whenever you want to put a new value to other worksheet, for example :

...
...
EmailAddressTextBox.Value = ""
NotesTextBox.Value = ""
AssociateComboBox.SetFocus

WriteToAnotherSheet "Hello World"

ActiveWorkbook.Save

End Sub