Correct code to paste in next blank row instead of defined row

vegas86
vegas86 used Ask the Experts™
on
Hello,

I have the following macro but I am having trouble with one piece of it,

The code is

Sub PMTimetable()
'
' PMTimetable Macro
'
  If MsgBox(Prompt:="Have you filtered on PM Timetable?", Buttons:=vbYesNo + vbQuestion, _
      Title:="Insert PM Timetable") = vbNo Then
      Exit Sub
    End If
    Sheets("Information").Select
    Range("F14:K5500").Select
    Selection.Copy
    Sheets("Timetable").Select
    Rows("10:10").Select
    Selection.Insert Shift:=xlDown
    ActiveSheet.Paste
    Application.CutCopyMode = False
End Sub

What i would like is for it to look for the next blank row and insert there instead of it being inserted into Row 10 everytime. EG - - Rows("10:10").Select

How do I do this?
Comment
Watch Question

Do more with

Expert Office
EXPERT OFFICE® is a registered trademark of EXPERTS EXCHANGE®
Cells(10,1).end(xldown).offset(1,0).entirerow.select

will start from A10 and find the next blank row and select it

Author

Commented:
Thank you so much for your help!!

Do more with

Expert Office
Submit tech questions to Ask the Experts™ at any time to receive solutions, advice, and new ideas from leading industry professionals.

Start 7-Day Free Trial