Defining where the incert cell starts

[StartingOut]

Hi I have a macro that runs when i click n a button and it takes data from a couple of cells from several shhets and puts them in one master sheet, currently the data gets put in column A and B on row 1, I don't know how the make the code put the data starting in column E row 9.<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>

Option Explicit

Sub AssembleSummary()
Dim wsDest As Worksheet
Dim wsSrc As Worksheet
Dim NR As Long
Application.ScreenUpdating = False

Set wsDest = Sheets("AccountsReceivable")
wsDest.Range("A:B").ClearContents
NR = 1

For Each wsSrc In Worksheets
If wsSrc.Name <> wsDest.Name And wsSrc.Range("K49") > 0 Then
wsDest.Range("A" & NR).Value = wsSrc.Range("D12").Value
wsDest.Range("B" & NR).Value = wsSrc.Range("K49").Value
NR = NR + 1
End If
Next wsSrc

Application.ScreenUpdating = True

 

[Andrew Poulsom]

Try:

NR = wsDest.Range("A" & wsDest.Rows.Count).End(xlUp).Row + 1