Macro

Sub Inserts()
'
' Inserts Macro
' Generar script de inserción
'

'
    Dim i As Long
    Dim nombre As String
    nombre = "Main"
    

    Sheets.Add After:=ActiveSheet
    For i = 3 To 1000000
    
        If ThisWorkbook.Sheets(nombre).Cells(i, 2) <> "" Then
            Cells(i, 2).Value = "insert into tabla (JOB_FUNCTION_CODE, JOB_FUNCTION_DESCRIPTION, POSITION_CODE, POSITION_TITLE, JOB_CODE, JOB_DESCRIPTION, TYPE_OF_POSITION, GRADE_BAND_LEVEL_CODE, GRADE_BAND_LEVEL_CODEEVEL_DESCRIPTION, EMPLOYEE_CLASSIFICATION_CODE, EMPLOYEE_CLASSIFICATION_DES, EFFECTIVE_START_DATE, POSITION_ENTRY_DATE, EFFECTIVE_END_DATE, STATUS, STATUS_DESCRIPTION, GPID, POSITION_TITLE_, WORK_LOCATION_CODE, WORK_LOCATION_DESCRIPTION, FINANCE_COMPANY_CODE, FINANCE_COMPANY_DESCRIPTION, SECTOR_CODE, SECTOR_DESCRIPTION, LEGAL_ENTITY_CODE, LEGAL_ENTITY_DESCRIPTION, REGION_CODE, REGION_DESCRIPTION, BUSINESS_UNIT_CODE, BUSINESS_UNIT_DESCRIPTION, MARKET_UNIT_CODE, MARKET_UNIT_DESCRIPTION, JOB_SUBFUNCTION_CODE, JOB_SUBFUNCTION_DESCRIPTION, COST_CENTER_CODE, COST_CENTER_DESCRIPTION, HIGHER_LEVEL_POSITION, PAY_SCALE_TYPE_EE, PAY_SCALE_TYPE_EE_DESC, PAY_SCALE_GROUP, PAY_SCALE_GROUP_DESC, PAY_SCALE_LEVEL_EE, PAY_SCALE_LEVEL_EE_DESC) values 
            (ThisWorkbook.Sheets(nombre).Cells(i, 2) + "','" + _
            ThisWorkbook.Sheets(nombre).Cells(i, 3) + "','" + _
            ThisWorkbook.Sheets(nombre).Cells(i, 4) + "','" + _
            ThisWorkbook.Sheets(nombre).Cells(i, 5) + "','" + _
            ThisWorkbook.Sheets(nombre).Cells(i, 6) + "','" + _
            ThisWorkbook.Sheets(nombre).Cells(i, 7) + "','" + _
            ThisWorkbook.Sheets(nombre).Cells(i, 8) + "','" + _
            ThisWorkbook.Sheets(nombre).Cells(i, 9) + "','" + _
            ThisWorkbook.Sheets(nombre).Cells(i, 10) + "','" + _
            ThisWorkbook.Sheets(nombre).Cells(i, 11) + "','" + _
            ThisWorkbook.Sheets(nombre).Cells(i, 12) + "','" + _
            ThisWorkbook.Sheets(nombre).Cells(i, 13) + "','" + _
            ThisWorkbook.Sheets(nombre).Cells(i, 14) + "','" + _
            ThisWorkbook.Sheets(nombre).Cells(i, 15) + "','" + _
            ThisWorkbook.Sheets(nombre).Cells(i, 16) + "','" + _
            ThisWorkbook.Sheets(nombre).Cells(i, 17) + "','" + _
            ThisWorkbook.Sheets(nombre).Cells(i, 18) + "','" + _
            ThisWorkbook.Sheets(nombre).Cells(i, 19) + "','" + _
            ThisWorkbook.Sheets(nombre).Cells(i, 20) + "','" + _
            ThisWorkbook.Sheets(nombre).Cells(i, 21) + "','" + _
            ThisWorkbook.Sheets(nombre).Cells(i, 22) + "','" + _
            ThisWorkbook.Sheets(nombre).Cells(i, 23) + "','" + _
            ThisWorkbook.Sheets(nombre).Cells(i, 24) + "','" + _
            ThisWorkbook.Sheets(nombre).Cells(i, 25) + "','" + _
            ThisWorkbook.Sheets(nombre).Cells(i, 26) + "','" + _
            ThisWorkbook.Sheets(nombre).Cells(i, 27) + "','" + _
            ThisWorkbook.Sheets(nombre).Cells(i, 28) + "','" + _
            ThisWorkbook.Sheets(nombre).Cells(i, 29) + "','" + _
            ThisWorkbook.Sheets(nombre).Cells(i, 30) + "','" + _
            ThisWorkbook.Sheets(nombre).Cells(i, 31) + "','" + _
            ThisWorkbook.Sheets(nombre).Cells(i, 32) + "','" + _
            ThisWorkbook.Sheets(nombre).Cells(i, 33) + "','" + _
            ThisWorkbook.Sheets(nombre).Cells(i, 34) + "','" + _
            ThisWorkbook.Sheets(nombre).Cells(i, 35) + "','" + _
            ThisWorkbook.Sheets(nombre).Cells(i, 36) + "','" + _
            ThisWorkbook.Sheets(nombre).Cells(i, 37) + "','" + _
            ThisWorkbook.Sheets(nombre).Cells(i, 38) + "','" + _
            ThisWorkbook.Sheets(nombre).Cells(i, 39) + "','" + _
            ThisWorkbook.Sheets(nombre).Cells(i, 40) + "','" + _
            ThisWorkbook.Sheets(nombre).Cells(i, 41) + "','" + _
            ThisWorkbook.Sheets(nombre).Cells(i, 42) + "','" + _            
            ThisWorkbook.Sheets(nombre).Cells(i, 43) + "');"
        End If
    Next i
End Sub