Pasting A Range Into Next Available Row

Hello,

I am getting a compile error when I run the following code in a file I am building. I am not sure what I am doing wrong in the code to get the compile error. The line with the range that I want to copy is A80 through the named ranged AdjustmentEnd1. I then want it to search down column A and find the first unused line from the bottom and paste the copied selection in. Any help would be much appreciated. Thanks!

<code>
Sub AddAdjustment()
Range("A80", Range("AdjustmentEnd1")).Copy
Range("A1").Select
Range("A" & Rows.Count).End(xlUp).Offset(1).Select
.PasteSpecial xlPasteAll
.PasteSpecial xlPasteColumnWidths
Application.CutCopyMode = True
End Sub
<code>

works like a charm. Thanks!