Excel VBA Automate to open CSV comma delimited file and copy to worksheet

Hi,

I have a CSV file that was exported from an SSRS report.
I have an excel with Button (form control) to open a CSV file. I'm trying to write a VBA macro to automate to open a CSV file comma delimited and copy the records to a worksheet. Any help is very much appreciated. thanks.

Below is a sample data.
The first row is the heading
Second row is the date and other parameters.
The Third row is the column heading
the Fourth row is the data that I would like to copy using vba excel

textbox1,txtFromDate,textbox3,textbox65,textbox67
11/5/2014 6:00 AM,11/6/2014 6:00 AM,User,TOP-FJ-PCM,ALL

lineid,textbox100,textbox101,textbox102,txtWrkCtr,textbox54,textbox72,textbox77
TOP_Line30,2676,2597,79,FJ_BAFF,363,361,2,FAJ1101-5-S,363,361,2

Try this VBA

Option Explicit
Sub impCSV()

Dim lr As Long
Dim lrC As Long
Dim wbTarget As Workbook 'Comments Worksheet
Dim wbThis As Workbook  'Current Open Workbook
Dim strName As String 'Name for source sheet/target workbook
Dim thePath As String  'Path for Master Spreadsheet
Dim i As Long 'Name variable to loop

    Application.ScreenUpdating = False

'set the current active workbook
    Set wbThis = ActiveWorkbook
'set the target workbook name; change to your wb name
    strName = "MyNewBook"
'set the path to the Target Spreadsheet Change this to reflect your path
    thePath = "C:\Users\Alan Sidman\Desktop\"
'open New Spreadsheet
    Set wbTarget = Workbooks.Open(thePath & strName & ".xlsx")
'Activate the Target Workbook
    wbTarget.Activate

'activate source workbook
    wbThis.Activate
'find the last row in column A to determine the range to copy
    lr = Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row
'clear any thing on the clipboard to mazimize available memory
    Application.CutCopyMode = False
    
    
    For i = 4 To lr
'Find the last row in the target workbook
    lrC = wbTarget.Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row
'Copy 4th Row and paste
    wbThis.Sheets("Sheet1").Range("A" & i).EntireRow.Copy wbTarget.Sheets("Sheet1").Range("A" & lrC + 1)
'Clear the clipboard
    Application.CutCopyMode = False
    wbThis.Activate
'Skip to next fourth row
i = i + 3
Next i
   
    wbTarget.Save
    wbTarget.Close
    wbThis.Activate
    Application.ScreenUpdating = True
         
'clear memory
    Set wbTarget = Nothing
    Set wbThis = Nothing
    MsgBox "complete"
End Sub