Minha macro está dando erro e eu não sei identificar o motivo

[Camila Faleiros]

Oi!! Preciso de ajuda... Fiz uma macro para, dependendo do valor colocado dentro de determinada célula, preencher a minha tabela em função desse valor. Mas o IF não está rodando e gostaria de saber se alguém consegue identificar o problema e me ajudar... O código segue abaixo e o erro que está dando, em anexo. Desde já obrigada!!

Sub beneficios()

'planos iguais dentro da mesma categoria (assistencia medica, automóvel, etc..) estão agrupados

Dim MACRO       As Worksheet
Dim MATRIZ      As Worksheet
'Dim AM1         As String
'Dim AM2         As String
'Dim AM3         As String
'Dim AM4         As String
'Dim AM5         As String
'Dim AM6         As String
'Dim AM7         As String
'Dim AM8         As String
'Dim CEA1        As String
'Dim CEA2        As String
'Dim AO1         As String
'Dim AO2         As String
'Dim SV          As String
'Dim AF          As String
'Dim VR1         As String
'Dim VR2         As String
'Dim VR3         As String
'Dim R           As String
'Dim VA1         As String
'Dim VA2         As String
'Dim VA3         As String
'Dim AUT1        As String
'Dim AUT2        As String
'Dim EST1        As String
'Dim EST2        As String
'Dim EST3        As String
'Dim EST4        As String
'Dim EST5        As String
'Dim CR1         As String
'Dim CR2         As String
'Dim GP          As String
'Dim VT1         As String
'Dim VT2         As String
'Dim TF          As String
'Dim KB          As String
'Dim KC          As String
'Dim OB1         As String
'Dim OB2         As String

Set MACRO = Sheets("Macro")
Set MATRIZ = Sheets("Matriz")

'AM1 = Range("b2")
'AM2 = MATRIZ.Range("f2")
'AM3 = MATRIZ.Range("k2")
'AM4 = MATRIZ.Range("n2")
'AM5 = MATRIZ.Range("o2")
'AM6 = MATRIZ.Range("p2")
'AM7 = MATRIZ.Range("r2")
'AM8 = MATRIZ.Range("s2")
'CEA1 = MATRIZ.Range("b3")
'CEA2 = MATRIZ.Range("k3")
'AO1 = MATRIZ.Range("b4")
'AO2 = MATRIZ.Range("s4")
'SV = MATRIZ.Range("b5")
'AF = MATRIZ.Range("b6")
'VR1 = MATRIZ.Range("b7")
'VR2 = MATRIZ.Range("g7")
'VR3 = MATRIZ.Range("k7")
'R = MATRIZ.Range("p8")
'VA1 = MATRIZ.Range("g9")
'VA2 = MATRIZ.Range("p9")
'VA3 = MATRIZ.Range("s9")
'AUT1 = MATRIZ.Range("b10")
'AUT2 = MATRIZ.Range("d10")
'EST1 = MATRIZ.Range("b11")
'EST2 = MATRIZ.Range("f11")
'EST3 = MATRIZ.Range("g11")
'EST4 = MATRIZ.Range("q11")
'EST5 = MATRIZ.Range("t11")
'CR1 = MATRIZ.Range("k12")
'CR2 = MATRIZ.Range("s12")
'GP = MATRIZ.Range("b13")
'VT1 = MATRIZ.Range("j14")
'VT2 = MATRIZ.Range("t14")
'TF = MATRIZ.Range("q15")
'KB = MATRIZ.Range("p16")
'KC = MATRIZ.Range("p17")
'OB1 = MATRIZ.Range("b18")
'OB2 = MATRIZ.Range("c18")

  If Range("2a").Value = "A" Or "B" Or "C" Or "D" Or "E" Or "G" Or "H" Or "I" Then
  
  
    MATRIZ.Select
    Range("b2").Select
    Selection.Copy
    MACRO.Select
    Range("B4").Select
    ActiveSheet.Paste
    Columns("B:B").EntireColumn.AutoFit
  
    
    

    
    
    
    
    
  End if 
  
    

End Sub