Varying Length Raw Data Import - Find Max Week + 1

Here is the code that i am trying to rectify for the second last cell selection

Workbooks(fname).Worksheets("Sheet1").Range(lrow - 1, 0).End(xlUp).Row.Copy

And then i need to not copy the top row which is the heading, but there are issues with the above.

Secondly the max of the range, this is what i have so far...

Dim rng As Range
Set rng = Sheet1.Range("A1:a2000")
maximum = Application.WorksheetFunction.Max(rng)

I then need to add this value to the pasted group + 1

Again any help would be appreciated!