Macro needs to automatically find the first blank line

[Dstoltz]

I am trying to have a macro copy from one worksheet, where the values are linked to other pages in the workbook and paste into a master report where it will be values and not the links. I also need the macro to find the first blank line and paste my values there. I would like the formating to come across too. I have very little programming experience, so I used the Macro Recorder to give me a baseline, unfortunately I cannot figure out how to get it to skip to the next available blank row. Here is the code I am playing with:

Sub Macro1()
'
' Macro1 Macro
' Macro recorded 4/28/2011 by 64h9978
'
'
    Rows("1:8").Select
    Selection.Copy
    ChDir "C:\Documents and Settings\64h9978\My Documents\Excel"
    Workbooks.Open Filename:= _
        "C:\Documents and Settings\64h9978\My Documents\Excel\Master Workshop List.xls"
    Range("A209").Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    ActiveWorkbook.Save
End Sub

 

[alan.m]

Hi, to select the next blank row, try

    Range("A1").End(xlDown).Offset(1, 0).Select

instead of
Range("A209").Select
HTH