Code:
'...........................
wbkNew.Sheets(1).Range("D3").Activate
 For i = 1 To wbkNew.Sheets(1).Range("A1").End(xlDown).Row - 2
                ActiveCell.Value = "A"
                ActiveCell.Offset(1).Activate
 Next i
 wbkNew.Sheets(1).Range("A1").Activate
 Columns("A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete (xlShiftUp)
 Application.DisplayAlerts = False
 wbkNew.SaveAs Filename:=strSaveLocation & strThirdCSVName, FileFormat:=xlCSV, CreateBackup:=False
Application.DisplayAlerts = True
 wbkNew.Close 0