VBA Command Button to send only certain data to new Workbook

[Danin]

I have an excel worksheet set up as a form in a workbook. from that form i upload to a workbook on our main server parts of it that I need to log.
I want to edit this form and change what it uploads.

CosCode	Description	Startdate	EndDate	Rate	UoM	Total
TestCode	Generator 1 of 2	01/06/207	04/06/2017	$1.00	day	$4.00
TestCode1	Generator 2 of 2	03/06/2017	004/06/2017	$1.00	day	$2.00

<tbody>
</tbody>

I want to enter above underlined to cells into new workbook. But if the rows are empty i want it not enter empty rows. there are 7 rows to enter details into on the form.
I have vba set up to enter cells for the purchase number date supplier etc. it is getting the vba to stop if the cells are empty. how can I write that part and where should I put it?

Private Sub CommandButton1_Click()
Dim Area As String
Dim Supplier As String, PurchaseNumber As Long
Dim Description As String, Commercial As String
Dim Approved As String, Costcode As String
Dim PODate As Long
Dim Total_GSTexc As Single
Dim PurchaseOrder As Workbook
Worksheets("PurchaseOrder").Select
Area = Range("G6")
Worksheets("PurchaseOrder").Select
PurchaseNumber = Range("H6")
Worksheets("PurchaseOrder").Select
PODate = Range("H7")
Worksheets("PurchaseOrder").Select
Supplier = Range("B6")
Worksheets("PurchaseOrder").Select
Description = Range("A35")
Worksheets("PurchaseOrder").Select
Costcode = Range("D35")
Worksheets("PurchaseOrder").Select
Commercial = Range("A32")
Worksheets("PurchaseOrder").Select
Approved = Range("A29")
Worksheets("PurchaseOrder").Select
Total_GSTexc = Range("H26")
Set PurchaseOrder = Workbooks.Open("P:\put address here example.xlsb")
Worksheets("NewPurchaseOrders").Select
Worksheets("NewPurchaseOrders").Range("A3").Select
RowCount = Worksheets("NewPurchaseOrders").Range("A1").CurrentRegion.Rows.Count
With Worksheets("NewPurchaseOrders").Range("A1")
.Offset(RowCount, 0) = Area
.Offset(RowCount, 1) = PurchaseNumber
.Offset(RowCount, 2) = PODate
.Offset(RowCount, 3) = Supplier
.Offset(RowCount, 4) = Description
.Offset(RowCount, 5) = Costcode
.Offset(RowCount, 6) = Approved
.Offset(RowCount, 7) = Commercial
.Offset(RowCount, 8) = Total_GSTexc
End With
PurchaseOrder.Save


End Sub

 

[Danin]

To add to this question as below is what I am trying to move. sometimes it will only have one row of information other times it could have 5 lines. How do I tell it only to enter rows that have information in it otherwise skip to next row? I only want to send the Blue columns.

CostCode	Description	On Hire Date	Off Hire Date		Unit	Rate	Amount (ex. GST)
testcode	1 of 4 VMS Boards	1/06/2017	10/06/2017	9	day	$30.00	$ 270.00
testcode	2 of 4 VMS Boards	2/06/2017	15/06/2017	13	day	$30.00	$ 390.00
testcode	3 of 4 VMS Boards	4/06/2017	10/06/2017	6	day	$30.00	$ 180.00
				0			$ -
							$ -
							$ -

<colgroup><col><col><col><col><col><col><col><col></colgroup><tbody>
</tbody>