I want a macro to merge a sheet of two column data to another sheet

[kasi makesan]

Hi:

Please help me to write a macro for the following problem:
I have two sheets.
Sheet1:
Column A Column B
ABCuc24556 To be postponed
ABCuc24557 Discussion will be later
ABCuc40001 Not reproducble now


Sheet2:
Column A Column B
ABCuc24556 To be fixed in next release
ABCuc24557 Discussion will be later
ABCuc34567 New issue to be reproduced

After macro execution, Sheet2 should be merged in to Sheet1. Sheet1 will be as follows:
Column A Column B
ABCuc24556 To be fixed in next release
ABCuc24557 Discussion will be later
ABCuc40001 Not reproducble now
ABCuc34567 New issue to be reproduced


kasi

[JBeaucaire]

Sub MergeTwoSheets()
Dim LR as Long

Sheets("Sheet1").Copy After:=Sheets(Sheets.Count)
Sheets("Sheet2").Usedrange.Offset(1).Copy Range("A" & Rows.Count).End(xlUp).Offset(1)

Range("A1").CurrentRegion.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlYes

LR = Range("A" & Rows.Count).End(xlUp).row

Range("AA2:AA" & LR).Formula = "=COUNTIF($A$2:$A2, $A2)"

Rows(1).AutoFilter
Rows(1).AutoFilter 27, ">1"
LR = Range("A" & Rows.Count).End(xlUp).row
If LR > 1 Then Range("A2:A" & LR).Entirerow.Delete xlShiftUp
Activesheet.AutoFilterMode=False

Range("AA:AA").ClearContents

End Sub

[kasi makesan]

"Copile error: Sub or Function not defined" pop up comes at Row(1).AutoFilter

[JBeaucaire]

Code corrected above, should be Rows