Delete 1 to 8 rows. Do text to columns to specific columns.

Open the file in the path. Do text to columns to the entire sheet. Delete the Range (1 to 8 rows). Insert value zero in columns G1, I1, L1, N1, P1 only if they are balnk. Now do text to columns to Column G, L, N & P. Save the file as

Need macro for this. Please help.

I am getting struck at "only if they are blank". Can you help on this?

This is how I could create. Any suggestions for this would be helpful.

Sub Macro()
'
' Macro1 Macro

Dim Filter As String, Title As String
Dim FilterIndex As Integer
Dim Filename As Variant
' File filters
Filter = "Excel Files (*.xls),*.xls," & _
"Text Files (*.txt),*.txt," & _
"All Files (*.*),*.*"
' Default Filter to *.*
FilterIndex = 3
' Set Dialog Caption
Title = "Select a File to Open"
' Select Start Drive & Path
ChDrive ("D")
ChDir ("D:\Documents and Settings")
With Application
' Set File Name to selected File
Filename = .GetOpenFilename(Filter, FilterIndex, Title)
' Reset Start Drive/Path
ChDrive (Left(.DefaultFilePath, 1))
ChDir (.DefaultFilePath)
End With
' Exit on Cancel
If Filename = False Then
MsgBox "No file was selected."
Exit Sub
End If
' Open File
Workbooks.Open Filename
MsgBox Filename, vbInformation, "File Opened" ' This can be removed


Rows("1:12").Select
Selection.Delete Shift:=xlUp
Cells.Select
Cells.EntireColumn.AutoFit

Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _
:=Array(1, 2), TrailingMinusNumbers:=True


Range("G2").Select
If Selection.Value = "" Then
ActiveCell.FormulaR1C1 = "0"
End If

Range("I2").Select
If Selection.Value = "" Then
ActiveCell.FormulaR1C1 = "0"
End If

Range("L2").Select
If Selection.Value = "" Then
ActiveCell.FormulaR1C1 = "0"
End If

Range("M2").Select
If Selection.Value = "" Then
ActiveCell.FormulaR1C1 = "0"
End If

Range("N2").Select
If Selection.Value = "" Then
ActiveCell.FormulaR1C1 = "0"
End If

Range("P2").Select
If Selection.Value = "" Then
ActiveCell.FormulaR1C1 = "0"
End If


Columns("G:G").Select
Selection.TextToColumns Destination:=Range("G1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 2), TrailingMinusNumbers:=True

Columns("L:L").Select
Selection.TextToColumns Destination:=Range("L1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 2), TrailingMinusNumbers:=True

Columns("M:M").Select
Selection.TextToColumns Destination:=Range("M1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 2), TrailingMinusNumbers:=True

Columns("N:N").Select
Selection.TextToColumns Destination:=Range("N1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 2), TrailingMinusNumbers:=True

Columns("P:P").Select
Selection.TextToColumns Destination:=Range("P1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 2), TrailingMinusNumbers:=True

Columns("R:R").Select
Selection.TextToColumns Destination:=Range("R1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 2), TrailingMinusNumbers:=True

Range("R1").Select
Selection.End(xlToLeft).Select

ChDir "D:\Documents and Settings\Book2.xlsx"
ActiveWorkbook.SaveAs Filename:="CABC" & " " & Range("Q2").Value & " " & Range("u2").Value & " " & Range("W2").Value & ".xls"


End Sub