Cacher is the code snippet organizer for pro developers

Sub columndelete()

  Dim lrow As Long
  
  Dim lcolumn As Long
  
  lcolumn = Sheet1.Range("A4").CurrentRegion.Columns.Count
  
  lrow = Sheet2.Range("f1").CurrentRegion.Rows.Count
  
  For j = 1 To lrow
  
  For i = 1 To lcolumn
  
     If Sheet1.Cells(4, i).Value = Sheet2.Cells(j, 5).Value Then
          
          Sheet1.Columns(i).Delete
     
     End If
          
  Next i
  
  Next j
  
  
  
End Sub