Optimizar macro

La verdad soy nuevo con las macros asi que no se mucho de códigos, pero quisiera poder optimizar el siguiente código., ya que, si realiza la tarea que necesito pero me parece que puede optimizarse; lo que más necesito es que cuando ya tengo muchos datos capturados en la hoja de excel "captura" tiene que buscar la primera celda vacía y para esto tiene que recorrer todos los datos capturados., como haría para mejorar esto, y en general todo el código.
Private Sub CommandButton2_Click()
Application.ScreenUpdating = True
Sheets("CAPTURA").Select
Range("a1").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell = TextBox1.Value
ActiveCell.Offset(0, 1).Select
If OptionButton1 = True Then
ActiveCell = "m"
Else
If OptionButton2 = True Then
ActiveCell = "f"
End If
End If
ActiveCell.Offset(0, 1).Select
If OptionButton3 = True Then
ActiveCell = "si"
Else
If OptionButton4 = True Then
ActiveCell = "no"
End If
End If
ActiveCell.Offset(0, 1).Select
If OptionButton5 = True Then
ActiveCell = "si"
Else
If OptionButton6 = True Then
ActiveCell = "no"
End If
End If
ActiveCell.Offset(0, 1).Select
If OptionButton7 = True Then
ActiveCell = "si"
Else
If OptionButton8 = True Then
ActiveCell = "no"
End If
End If
ActiveCell.Offset(0, 5).Select
ActiveCell = ComboBox1
ActiveCell.Offset(0, 2).Select
If OptionButton9 = True Then
ActiveCell = "si"
End If
ActiveCell.Offset(0, 3).Select
ActiveCell = ComboBox2
Sheets("CAPTURA").Select
Range("a1").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
TextBox1 = Empty
OptionButton1 = Empty
OptionButton2 = Empty
OptionButton3 = Empty
OptionButton4 = Empty
OptionButton5 = Empty
OptionButton6 = Empty
OptionButton7 = Empty
OptionButton8 = Empty
OptionButton9 = Empty
ComboBox1 = Empty
ComboBox2 = Empty
ComboBox3 = Empty
TextBox1.SetFocus
End Sub