Clear contents of column except column header

[user125]

Hello,

I am having trouble with my VBA code where I am supposed to clear contents of the entire column except the column header. The code I have so far only clears the column header and I am not sure how exactly to change it to help with my issue. P.S. this is part of a larger procedure and that is why I have not included the part where I dim variables. Thank you.

lastcolumn = wb.Sheets(destinationSheetName).Cells(columnheader, Columns.count).End(xlToLeft).Column
            For count = 1 To lastcolumn
                If wb.Sheets(destinationSheetName).Cells(1, count).Value <> Workbooks(FileName).Sheets(importFile).Cells(1, count).Value Then
                    wb.Sheets(destinationSheetName).Cells(1, count).ClearContents
                End If
            Next count

 

[Fluff]

How about

   With wb.Sheets(destinationSheetName)
      lastcolumn = .Cells(columnheader, Columns.Count).End(xlToLeft).Column
      For Count = 1 To lastcolumn
         If .Cells(1, Count).Value <> Workbooks(Filename).Sheets(importFile).Cells(1, Count).Value Then
            .Cells(2, Count).Resize(.Rows.Count - 1).ClearContents
         End If
      Next Count
   End With

 

[user125]

That works perfectly. Thank you!

 

[Fluff]

You're welcome & thanks for the feedback.

 

[Rick Rothstein]

What am I missing? Why not just this inside the With..End With block?.

.Range(.Rows(2), .Rows(Rows.Count)).ClearContents

 

[Fluff]

That would clear all the columns, I think the OP is only try to clear some of them.