Excel - cómo duplicar un formulario para que funcione en otra tabla en la misma hoja

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

   '

   Dim X As Long

   Dim Y As Long

   Dim rngForm As Range

   '

   ' Asigno el rango donde deseo aparezca el formulario

   Set rngForm = Range("B8:E8")

   '

   ' Verifico si el cursor se encuentra en alguna celda del rango

   If Union(Target, rngForm).Address = rngForm.Address Then

      '

      'Calculo la aparicion Izquierda del form

      X = UserForm1.Width - Range("B8").Left

      '

      'Calculo la aparicion superior del form

      Y = Range("B8").Top + UserForm1.Height + 13

      '

      'llamo al formulario

      UserForm1.Promedio X, Y

      '

   End If

   '

   Set rngForm = Range("B3:E7")

   '

   If Union(Target, rngForm).Address = rngForm.Address Then

      '

' llamo al formulario calculadora

      Call calculadora.VerCalcu(ActiveCell.Address)

      '

   End If

   '

   'Código para el formulario NOTA

   Dim notaform As String

   notaform = ActiveCell.Address

   ' Asigno el rango donde deseo aparezca el formulario

   Set rngForm = Range("N3:Q7")

   'Si se elige una celda entre el rango

   If Union(Target, rngForm).Address = rngForm.Address Then

'   If Not Intersect(Target, Range("h3:k7")) Is Nothing Then

      '

      'Llama los formularios

      UserForm2.Show

      NOTA.Show

      '

   End If

   '

End Sub