Mille pulsanti?
Magari se ci spieghi il problema troviamo una soluzione più semplice, comunque, per rispondere alla tua domanda, il modo per sapere in che riga è posizionato un pulsante è di interrogare la sua proprietà Top, che indica la distanza dalla sommità del foglio e confrontarla col Top di tutte le celle di una colonna qualsiasi:

codice:
Private Sub CommandButton1_Click()
   macro (CommandButton1.Top)
End Sub

Private Sub CommandButton2_Click()
   macro (CommandButton2.Top)
End Sub

Private Sub CommandButton3_Click()
   macro (CommandButton3.Top)
End Sub

Sub macro(Sommita As Integer)
   For Each Casella In Range("A:A")
      If Casella.Top >= Sommita Then
         numeroRiga = Casella.Row - 1
         Exit For
      End If
   Next
   MsgBox "La sommità del pulsante si trova nella riga " & numeroRiga
End Sub