Macro that copys the last row on two worksheets

[neofrey]

The below formula is giving me a Compile error: Duplicate declaration in current scope. How can a change the second part of this macro so it doesn't give me the error? I know I could keep them seperate but I'm sure there is a solution.

Thanks in advance.

Sheets("Moderate").Select
    Dim LastRow As Long
  LastRow = Cells.Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious, LookIn:=xlFormulas).Row
  Rows(LastRow).Copy Cells(LastRow + 1, "A")
  Rows(LastRow).Value = Rows(LastRow).Value
  
  Sheets("Moderate AccDiv").Select
    Dim LastRow As Long
  LastRow = Cells.Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious, LookIn:=xlFormulas).Row
  Rows(LastRow).Copy Cells(LastRow + 1, "A")
  Rows(LastRow).Value = Rows(LastRow).Value