VBA query with keeping column

Everyone hello,

I have a query, where I want to keep a certain column (eg BB) but I have an existing vba that deletes all rows from 6:1000;

This is the vba I have that removes the rows:

Private Sub Run_Code_Click ()
If ActiveSheet.Cells (1, 2) = "" Then exit Sub
'Clear Data Sheet

ActiveSheet. Rows ("6:1000"). ClearContents
ActiveSheet. Rows ("6:1000"). ClearFormats
ActiveSheet. Rows ("6:1000"). Validation.Delete
ActiveWindow.FreezePanes = False
Application.ScreenUpdating = False
Application.EnableEvents = False

What I would like, is for Column BB not to be removed.
how do I add that to the code as BB has data that is needed and I have to manually add each time the file updates.

I hope you will be able to help.

Many thanks

Pugg

Do I replace the data with the current data I gave you and do I remove all:
Private Sub Run_Code_Click ()
If ActiveSheet.Cells (1, 2) = "" Then exit Sub
'Clear Data Sheet

ActiveSheet. Rows ("6:1000"). ClearContents
ActiveSheet. Rows ("6:1000"). ClearFormats
ActiveSheet. Rows ("6:1000"). Validation.Delete
ActiveWindow.FreezePanes = False
Application.ScreenUpdating = False
Application.EnableEvents = False

Ok thx, that works but there is an issue where all the data from BB disappears when i click on the update button
Any reason why that is happening.

I ran it 3 times and the same thing happens

Pugg

How do I change the following, as it may have something to do with it:

I have this added code:

Dim mystring As String
Dim RowCount As Long
RowCount = WorksheetFunction.CountA(Range("AD:AD"))
For i = 2 To RowCount
myString = Trim(Cells)i, 9).Value)
If InSrt(myString, "25") > 0 Then
Cells(i, 30).Value = Cells(i, 54).Value
End If
Next
End Sub


The Cells (i, 54) is Column BB
The data in column BB is added to Cell(i, 30) to give time.

Can I replace the Cells so they look up a range in another sheet, as Column BB when ran removes data

Pugg