Greetings again

I'd like to open a openfile dialog and select a specific workbook, then on Sheet1 of that workbook copy specific column into the current workbook under a newly created sheet name "TESTSHEET"

I've been working with this code but so far I'm unble to select the specific columns I want and copy them over.

Question:
I want to copy Ranges C1:F?, J1:K? where the ? is the last datarow in column D of customerWorkBook.WorkSheets(1) and paste it to Range B1:G? of targetWorkBook("testsheet")?

Private Sub Import1_Click()
' Get customer workbook...
Dim customerBook As Workbook
Dim filter As String
Dim caption As String
Dim customerFilename As String
Dim customerWorkbook As Workbook
Dim targetWorkbook As Workbook

' make weak assumption that active workbook is the target
Set targetWorkbook = Application.ActiveWorkbook
ActiveWorkbook.Worksheets.Add(After:=ActiveSheet).Name = "testsheet"

' get the customer workbook
filter = "Text files (*.xls),*.xls"
caption = "Please Select an input file "
customerFilename = Application.GetOpenFilename(filter, , caption)

Set customerWorkbook = Application.Workbooks.Open(customerFilename)

' assume first range is C1 - G? in sheet1
' copy data from customer to target workbook
Dim targetSheet As Worksheet
Set targetSheet = targetWorkbook.Worksheets(1)
Dim sourceSheet As Worksheet
Set sourceSheet = customerWorkbook.Worksheets(1)

' F30, K30 of sourceSheet and E34,G34 of targetSheet are just place holders until I sort out the true value of the length of D column data

targetSheet.Range("B8:E34").Value = sourceSheet.Range("C1:F30").Value
targetSheet.Range("F8:G34").Value = sourceSheet.Range("J1:K30").Value

' Close customer workbook
customerWorkbook.Close

End Sub