Repetir eventos en macro

Tengo una hoja donde en la columna A están nombres de términos municipales.

En la columna B un numero, que seria el numero de repeticiones en la macro

Y en la columna C, la inicial de cada termino municipal.

Public Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Public Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Public Const MOUSEEVENTF_LEFTDOWN = &H2
Public Const MOUSEEVENTF_LEFTUP = &H4
Public Const MOUSEEVENTF_RIGHTDOWN As Long = &H8
Public Const MOUSEEVENTF_RIGHTUP As Long = &H10
Sub SELECCIONAR_TERMINO_MUNICIPAL()
Application.WindowState = xlMinimized
Application.Wait Time + TimeSerial(0, 0, 3)
SetCursorPos 500, 500
mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
Application.Wait Time + TimeSerial(0, 0, 1)
SendKeys "m" 'la letra que coincida de la columna c respecto a E1. O sea, la letra por la que empieza el
'termino municipal
End Sub
'Repetir las dos ultimas lineas las veces que indique la columna b coincidiendo con la
'celda E1

En la celda E1 sale dinámicamente el nombre de un termino municipal, y quisiera lo que hay escrito en verde en la macro, que con el comando sendkeys sea la inicial del termino municipal (en columna C) y se repita tantas veces como en columna B.