Delete range based columns in sheet 1

Not sure of what you're after? Does this help?

Sub cprameshz()
Dim i As Long
With Sheets("Sheet1")
    For i = 2 To .Range("A" & Rows.Count).End(3).row
        Sheets(.Cells(i, "A").Value).Columns(.Cells(i, "B") & ":" & .Cells(i, "C")).Delete
    Next i
End With
End Sub