ManotLuijiu/ImportLazada2ERPNext

## ImportLazada2ERPNext
Sub DeleteColumns()
    Dim ws As Worksheet
    Dim col As Range

    ' Set the worksheet you want to work on
    Set ws = ThisWorkbook.Sheets("ALL")

    ' Specify the columns you want to delete
    ' You can specify columns by their letters or numbers (e.g., "A", "C", "E" or 1, 3, 5)
    Dim columnsToDelete As Variant
    columnsToDelete = Array("A", "B", "C", "D", "E", "F", "G", "H", "J", "K", "L", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z", "AA", "AB", "AC", "AD", "AE", "AF", "AG", "AH", "AI", "AJ", "AK", "AL", "AM", "AN", "AO", "AP", "AQ", "AR", "AS", "AT", "AY", "BB", "BC", "BD", "BE", "BF", "BG", "BH", "BI", "BJ", "BK", "BL", "BM", "BO", "BP", "BQ", "BR", "BS", "BT", "BU", "BV", "BW", "BX")

    ' Loop through the array in reverse order to delete the columns
    For i = UBound(columnsToDelete) To LBound(columnsToDelete) Step -1
        ws.Columns(columnsToDelete(i)).Delete
    Next i
End Sub
	Sub DeleteColumns()
	Dim ws As Worksheet
	Dim col As Range

	' Set the worksheet you want to work on
	Set ws = ThisWorkbook.Sheets("ALL")

	' Specify the columns you want to delete
	' You can specify columns by their letters or numbers (e.g., "A", "C", "E" or 1, 3, 5)
	Dim columnsToDelete As Variant
	columnsToDelete = Array("A", "B", "C", "D", "E", "F", "G", "H", "J", "K", "L", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z", "AA", "AB", "AC", "AD", "AE", "AF", "AG", "AH", "AI", "AJ", "AK", "AL", "AM", "AN", "AO", "AP", "AQ", "AR", "AS", "AT", "AY", "BB", "BC", "BD", "BE", "BF", "BG", "BH", "BI", "BJ", "BK", "BL", "BM", "BO", "BP", "BQ", "BR", "BS", "BT", "BU", "BV", "BW", "BX")

	' Loop through the array in reverse order to delete the columns
	For i = UBound(columnsToDelete) To LBound(columnsToDelete) Step -1
	ws.Columns(columnsToDelete(i)).Delete
	Next i
	End Sub