This is a function to delete a specific column based on the Column letter and Row number.
e.g. DeleteSingleColumn(“A”, 1), then Column A will be completely deleted
Function DeleteSingleColumn(ByVal validColumn As String, ByVal StartRow As Long)
Dim i As Long
Dim DelString As String
DelString = validColumn & StartRow