Excel Macro to copy data every 288th cell from another workbook

Hi All,

I have Workbook1 and Workbook 2. From Workbook 1, I have data from BP6:BP4000. I want to copy every 288th data from Workbook 1 to Workbook 2 (in range N6:N15 ONLY).

Please help me. Thank you.

I have this already:

Sub CommandButton1_Click()
Dim Workbook1 As Workbook
Dim Workbook2 As Workbook
Dim Sheet As Worksheet

FileToOpen = Application.GetOpenFilename _
(Title:="Please choose a Report to Parse", _
FileFilter:="")

If FileToOpen = False Then
MsgBox "No File Specified.", vbExclamation, "ERROR"
Exit Sub
Else
Set Workbook2= Workbooks.Open(Filename:=FileToOpen)

End Sub