Having problems with the range!

Hi,

I have been trying to expand a bit of code that was written for me to copy a selection of cells from another sheet onto the end.

I wanted to expand it so that it auto filled the date (weekdays) into the new cells also.

However I am having problems with the range for the autofill...

Sub WeekA()
Dim ws As Worksheet
Set ws = ActiveSheet

Dim Previousrow As Long
Previousrow = Cells(Rows.Count - 5, "B").End(xlUp).Row

Dim Lastrow As Long
Lastrow = Cells(Rows.Count, "B").End(xlUp).Row

Dim Newrow As Long
Newrow = Cells(Rows.Count + 5, "B").End(xlUp).Row

Sheets("Sheet2").Range("A3:I7").Copy ws.Range("A" & Rows.Count).End(3)(2)
Range("B126:C130").AutoFill Destination:=Range("B126:C135"), Type:=xlFillWeekdays

End Sub

My hope is to generalise the above code using "Previous row, Lastrow and Newrow"

Thanks for any help!!