Modification to excel vb code

Sub NewReport()
Dim cel As Range, rg As Range, rw1 As Range, rwEmp As Range
Dim i As Long, j As Long, k As Long, ncols As Long, nRows As Long
Application.ScreenUpdating = False
 
On Error Resume Next
Sheets("TimeSheet").Select
    Range("A3").Select
COLUMNS("G:H").Select
    Selection.EntireColumn.Hidden = False
'ActiveSheet.unprotect
    Sheets("IMPORT").Visible = True
    
Application.DisplayAlerts = False
Worksheets("IMPORT").Delete
Application.DisplayAlerts = True
On Error GoTo 0
 
Set rw1 = Rows(1)
ncols = Cells(1, 10).End(xlToLeft).COLUMN
nRows = Cells(65536, 1).End(xlUp).Row
Set rg = Range(Cells(3, 1), Cells(nRows, ncols))
ActiveWorkbook.Sheets.Add Before:=Worksheets(Worksheets.Count)
ActiveSheet.Name = "IMPORT"
'Columns(5).NumberFormat = "0.000"
 
For Each rw In rg.Rows
    For j = 7 To ncols
        k = k + 1
                
        Cells(k, 1) = rw.Cells(1, 4)
        Cells(k, 3) = rw.Cells(1, 7)
        'Cells(k, 4) = rw.Cells(1, 8)
        Cells(k, 2) = rw1.Cells(1, j)
        If rw.Cells(1, j) <> "" Then Cells(k, 3) = rw.Cells(1, j)
        If Cells(k, 3) = "" Then Cells(k, 3) = "delete"
        If Cells(k, 3) = 0 Then Cells(k, 3) = "delete"
        
        Next
    
Next
Sheets("TimeSheet").Select
    Range("A3").Select
    COLUMNS("G:H").Select
Selection.EntireColumn.Hidden = True
 
 
'ActiveWindow.SelectedSheets.Visible = False
Sheets("TimeSheet").Select
    Range("A3").Select
    'ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
 
Application.ScreenUpdating = True
 
Call ExportPRN
 
End Sub