Find function to reference a cell rather than fixed workd

Hello all, I have some VBA code that currently looks for the word (AUS) in Column A and then delete text found after it.

Instead of the word (AUS) I would like the code to search for what is in Cell AM1. IS it possible to reference the cell within VBA please?

My code is below

Dim LR As Long, Found As Range
LR = Range("A" & Rows.Count).End(xlUp).Row
Set Found = Columns("A").Find(what:="(AUS)", LookIn:=xlValues, lookat:=xlWhole)
If Not Found Is Nothing Then Rows(Found.Row & ":" & LR).Delete