Copying data to the next blank row

[GarethT]

Hi guys,

I need a macro that copies data from one sheet and the pastes it to another sheet in the next available row. I have this so far.


Sub CommandButton1_Click()

Application.ScreenUpdating = False

Dim NextRow As Range

Sheets("DWOR").Range("B31:H31").Copy

Sheets("WeeklyTotal").Select
Set NextRow = ActiveSheet.Cells(Cells.Rows.Count, 1).End(xlUp).Offset(1, 0)
NextRow.Select
Selection.PasteSpecial (xlValues), Transpose:=True


Application.CutCopyMode = False
Application.ScreenUpdating = True

End Sub

This works but it pastes in row A1, I want it to start pasting at C13.
Any help appreciated.