Sub ReplaceIt()
If Sheets("Sheet1").Range("A2").Value = Sheets("Sheet2").Range("A2").Value
Then
Sheets("Sheet1").Range("A1").Value = Sheets("Sheet2").Range("A1").Value
End If
End Sub
Sub ReplaceIt()
If Sheets("Sheet1").Range("A2").Value = Sheets("Sheet2").Range("A2").Value
Then
Sheets("Sheet1").Range("A1").Value = Sheets("Sheet2").Range("A1").Value
End If
End Sub