Copying data to the next blank row

Joined
Jan 22, 2013
Messages
3
Reaction score
0
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.
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top