Pessoal,

tenho o seguinte script abaixo, porém gostaria que quando o valor da célula "Nacionais" fosse igual a zero gostaria que fosse executado o comando "Excluir Células - deslocar a esquerda" do intervalo "F13:G40".

Acredito que uma função If then seria suficiente, porém não estou conseguindo utilizá-la. Vocês poderiam ajudar? Muito Obrigado!!!

Script

Sub Fornecedores_Nacionais()

' Macro que define a quantidade de Fornecedores Internacionais

Application.ScreenUpdating = False

Dim Limite, Plinha, c 'Declaração da variaveis

Application.ScreenUpdating = False

Sheets("Base internacional").Select

Set intervalo = Range("G13:G40") 'Cria o intervalo de linhas a ser copiado

Limite = Range("Nacionais").Value - 1 'Atribui a variavel Limite o valor da célula A1

If Limite > 10 Then Limite = 10 ' incluida -> se o limite na célula A1 for maior que 10, vai fazer "apenas" 50 loops

c = 1 'Defina a variavel c = 1

'Percorre um loop de 1 até o Limite definido pelo usuário
Do While c <= Limite

Plinha = Range("G13:G40") 'intervalo a ser copiado
intervalo.Copy 'Copia o intervalo
Range("G13").Select 'seleciona aonde será colado
Selection.Insert Shift:=xlToRight 'Cola
c = c + 1 'Incrementa a variavel c
Loop

Application.CutCopyMode = False
[A1].Select

End Sub