vba delete columns with variable

[storemannequin]

I've written this below code to and am getting an error on the last line, I think the syntax is wrong. I'm trying to delete columns H to the variable set to final column minus 6 columns.

Sub Macro2()
'
' Macro2 Macro
'

'
FC = Cells(1, Columns.Count).End(xlToLeft).Column - 6


Rows("1:8").Delete Shift:=xlUp
Columns("F:F").Delete Shift:=xlToLeft
Columns("H:H" & ":" & FC).Delete Shift:=xlToLeft
End Sub

 

[VoG]

Try

Sub Macro2()
'
' Macro2 Macro
'

'
FC = Cells(1, Columns.Count).End(xlToLeft).Column - 6


Rows("1:8").Delete Shift:=xlUp
Columns("F").Delete
Range(Cells(1, 8), Cells(1, FC)).EntireColumn.Delete
End Sub

 

[storemannequin]

thanks but i'm getting an application defined error with the last statement still

 

[VoG]

This worked for me

Sub Macro2()
'
' Macro2 Macro
'

'
Dim FC As Long
FC = Cells(1, Columns.Count).End(xlToLeft).Column - 6


Rows("1:8").Delete
Range(Cells(1, 8), Cells(1, FC)).EntireColumn.Delete
Columns("F").Delete
End Sub

 

[storemannequin]

is there another way to go about this, I'm getting the same error.

 

[VoG]

Maybe

Sub Macro2()
'
' Macro2 Macro
'

'
Dim FC As Long, i As Long
FC = Cells(1, Columns.Count).End(xlToLeft).Column - 6


Rows("1:8").Delete
For i = FC To 8 Step -1
    Columns(i).Delete
Next i
Columns("F").Delete
End Sub

 

[storemannequin]

That loop is not working. Something is wrong with the FC variable, it is getting skipped over in all examples.

 

[VoG]

If FC is less than 8 the loop won't run.

Similarly, if FC is less than 8 then the previous code would error.

 

[storemannequin]

VoG, that explains it! I had to reorder the FC variable to make it work. Thanks