I need help with cleaning up some ugly Macro Code.

Hi All,

I made some ugly macro code.
It functions, but I do know it's not the "standard" way to get my trick done.

Here's some of the code:

Private Sub Name1_Click()

Dim ws As Worksheet:    Set ws = Worksheets("Factuur")
Dim lastrowD As Range, lastrowE As Range, lastrowF As Range, lastrowG As Range, lastrowH As Range, lastrowI As Range, lastrowJ As Range, lastrowK As Range, lastrowL As Range

Set lastrowD = ws.Range("D13:D14").Find(What:="", LookIn:=xlValues, LookAt:=xlWhole)
Set lastrowE = ws.Range("D14:D15").Find(What:="", LookIn:=xlValues, LookAt:=xlWhole)
Set lastrowF = ws.Range("D15:D16").Find(What:="", LookIn:=xlValues, LookAt:=xlWhole)
Set lastrowG = ws.Range("G15:G16").Find(What:="", LookIn:=xlValues, LookAt:=xlWhole)
Set lastrowH = ws.Range("D16:D17").Find(What:="", LookIn:=xlValues, LookAt:=xlWhole)
Set lastrowI = ws.Range("G16:G17").Find(What:="", LookIn:=xlValues, LookAt:=xlWhole)
Set lastrowJ = ws.Range("N14:N15").Find(What:="", LookIn:=xlValues, LookAt:=xlWhole)
Set lastrowK = ws.Range("N15:N16").Find(What:="", LookIn:=xlValues, LookAt:=xlWhole)
Set lastrowL = ws.Range("N16:N17").Find(What:="", LookIn:=xlValues, LookAt:=xlWhole)

If Not lastrowD Is Nothing Then
    lastrowD.Value = Me.Klant1.Value
    lastrowE.Value = Me.Adres1.Value
    lastrowF.Value = Me.Plaats1.Value
    lastrowG.Value = Me.Postcode1.Value
    lastrowH.Value = Me.Telefoon1.Value
    lastrowI.Value = Me.Email1.Value
    lastrowJ.Value = Me.Werkbon_nr1.Value
    lastrowK.Value = Me.Kenteken1.Value
    lastrowL.Value = Me.km_stand1.Value
Else
    MsgBox ("The range is full")
End If

UserForm3.Hide

End Sub

I only need the value from Userform3 to be placed into the fields.
As I don't know how else to achieve this, I made a range, and that works.
But I'm sure it must be possible to point it to a cell.
To make it simple, the code I used : "Set lastrowD = ws.Range("D13:D14").Find" makes a range from D13 to D14, but as it add's 1, it's always D14.
And D14 is also the field that requires the value of that (name) field of the Userform3.

It's ugly. But it works ! And I'm happy about that

Next code that needs to be simplified:

Sub Print_Factuur()
Worksheets("Factuur").PrintOut
Worksheets("Factuur").PrintOut
Opslaan
End Sub

I need a nice PrintOut, and I need 2 copies.
Tons of information on the WWW about printing, but how to make a simple duplicate copy? I really did search (for over 2 hours, then i gave up).
This code of mine works, it does the trick, but I'm sure there is a better way!

That's all for today

All the help is appreciated!

As you would find in Help,

Worksheets("Factuur").PrintOut Copies:=2

Or ...

    With Worksheets("Factuur")
        .Range("D13:D16").Value = WorksheetFunction.Transpose(Array(Klant1.Value, _
                                                                    Adres1.Value, _
                                                                    Plaats1.Value, _
                                                                    Telefoon1.Value))
        .Range("G15:G16").Value = WorksheetFunction.Transpose(Array(Postcode1.Value, _
                                                                    Email1.Value))
        .Range("N14:N16").Value = WorksheetFunction.Transpose(Array(Werkbon_nr1.Value, _
                                                                    Kenteken1.Value, _
                                                                    km_stand1.Value))
    End With

You're welcome.