[Resolvido]Unificar comando VBA

Amigos tenho uma acao no VBA onde gostaria da ajuda pra simplicar o comando
esta acao considera alterar o campo Cat Final para "Roupas > Bebê > Menina > Blusas e Regatas" onde os
tamanhos sao P ,M , G e GG e o codigo de fornecedor possui "31*"
Agradeço !!

If rstEmployees!Artigo = "Regata" And rstEmployees![Cód do Fornecedor] Like "31*" And rstEmployees!Tam = "P" Then
rstEmployees.Edit
rstEmployees![Cat Final] = "Roupas > Bebê > Menina > Blusas e Regatas"
rstEmployees.Update
End If

If rstEmployees!Artigo = "Regata" And rstEmployees![Cód do Fornecedor] Like "31*" And rstEmployees!Tam = "M" Then
rstEmployees.Edit
rstEmployees![Cat Final] = "Roupas > Bebê > Menina > Blusas e Regatas"
rstEmployees.Update
End If

If rstEmployees!Artigo = "Regata" And rstEmployees![Cód do Fornecedor] Like "31*" And rstEmployees!Tam = "G" Then
rstEmployees.Edit
rstEmployees![Cat Final] = "Roupas > Bebê > Menina > Blusas e Regatas"
rstEmployees.Update
End If

If rstEmployees!Artigo = "Regata" And rstEmployees![Cód do Fornecedor] Like "31*" And rstEmployees!Tam = "GG" Then
rstEmployees.Edit
rstEmployees![Cat Final] = "Roupas > Bebê > Menina > Blusas e Regatas"
rstEmployees.Update
End If

Obrigado resolvido