Sub CreateInsertScript()
 Dim Row As Integer
 Dim Col As Integer

 'To store all the columns available in the current active sheet
 Dim ColNames(100) As String

 Col = 1
 Row = 1
 Dim ColCount As Integer
 ColCount = 0
 'Get Columns from the sheet
 Do Until ActiveSheet.Cells(Row, Col) = "" 'Loop until you find a blank.
 ColNames(ColCount) = "[" + ActiveSheet.Cells(Row, Col) + "]"
 ColCount = ColCount + 1
 Col = Col + 1
 Loop
 ColCount = ColCount - 1

 'Inputs for the starting and ending point for the rows
 Row = InputBox("Give the starting Row No.")
 Dim MaxRow As Integer
 MaxRow = InputBox("Give the Maximum Row No.")

 'File to save the generated insert statements
 File = "c:\\InsertCode.txt"
 fHandle = FreeFile()
 Open File For Output As fHandle

 Dim CellColCount As Integer
 Dim StringStore As String 'Temporary variable to store partial statement

 Do While Row <= MaxRow
 StringStore = ""
 CellColCount = 0
 'ActiveSheet.Name will give the current active sheet name
 'this can be treated as table name in the database
 StringStore = StringStore + "insert into [" + ActiveSheet.Name + "] ( "
 Do While CellColCount <= ColCount
 StringStore = StringStore + ColNames(CellColCount)
 'To avoid "," after last column
 If CellColCount <> ColCount Then
 StringStore = StringStore + " , "
 End If
 CellColCount = CellColCount + 1
 Loop
 'Here it will print "insert into [TableName] ( [Col1] , [Col2] , ..."
 Print #fHandle, StringStore + " ) "

 'For printing the values for the above columns
 StringStore = " values( "
 CellColCount = 0
 Do While CellColCount <= ColCount
 StringStore = StringStore + " '" + CStr(ActiveSheet.Cells(Row, CellColCount + 1)) + "'"
 If CellColCount <> ColCount Then
 StringStore = StringStore + ", "
 End If
 CellColCount = CellColCount + 1
 Loop

 'Here it will print "values( 'value1', 'value2', ..."
 Print #fHandle, StringStore + ");"
 Print #fHandle, " "
 Row = Row + 1


 Loop


 Close #fHandle
 MsgBox ("Successfully Done")
 End Sub