Option Explicit
Private Sub Worksheet_Change(ByVal c As Range)
If c.Address = "$C$2" Then
Columns.Hidden = False
Select Case c
Case "LOT1": Range("H:K,N:S").EntireColumn.Hidden = True
Case "LOT2": Range("E:G,L:Q").EntireColumn.Hidden = True
Case "LOT3": Range("E:M,R:S").EntireColumn.Hidden = True
Case "": Columns.Hidden = False
End Select
End If
End Sub