VBA Addme

[Eve05]

Hi

I have a VBA that i'm able to select records from the userform and add them to a new worksheet, however I need the data to start of D9 how do I go about changing the code for this to happen

Dim addme As Range
    Dim x As Integer
    Set addme = Sheet1.Cells(Rows.Count, 4).End(xlUp).Offset(1, 0)
    For x = 0 To Me.lstData.ListCount - 1
        If Me.lstData.Selected(x) Then
            addme = Me.lstData.List(x)
            addme.Offset(0, 1) = Me.lstData.List(x, 1)
            addme.Offset(0, 2) = Me.lstData.List(x, 2)
            addme.Offset(0, 3) = Me.lstData.List(x, 3)
            addme.Offset(0, 4) = Me.lstData.List(x, 4)
            addme.Offset(0, 5) = Me.lstData.List(x, 5)
            addme.Offset(0, 6) = Me.lstData.List(x, 6)
            addme.Offset(0, 7) = Me.lstData.List(x, 7)
            addme.Offset(0, 8) = Me.lstData.List(x, 8)
            addme.Offset(0, 9) = Me.lstData.List(x, 9)
            addme.Offset(0, 10) = Me.lstData.List(x, 10)
            
            Set addme = addme.Offset(1, 0)
        End If
    Next x
    For x = 0 To Me.lstData.ListCount - 1
        If Me.lstData.Selected(x) Then Me.lstData.Selected(x) = False
    Next x
End Sub

 

[Fluff]

Change

Set addme = Sheet1.Cells(Rows.Count, 4).End(xlUp).Offset(1, 0)

to

Set addme = Sheet1.Range("D9")