Bom dia!!

Veja se funciona...

If Range("B2").Value = [J6].Value Then

Range("A2:H36").Select
Selection.Copy
Sheets("Base").Select
Range("A2").Select
Selection.Insert Shift:=xlDown
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("Input").Select
Range("A2").Select
Else
MsgBox "Dados diferentes deseja alterar", vbOKCancel
Exit Sub
End If
End Sub

Alexandre,

Deu erro de compilação do If Range("B2").Value logo no começo. =/

mais um detalhe: eu quero que a macro rode se os dados forem diferentes e não iguais (pelo o q eu entendi, a rotina está ao contrário.)

A instrução If está correta, verifique quais tipos de dados tem em B2 e J6, quanto a questão do "igual", é só alterar o Sinal da condição para "<>".

[]s