Find first blank cell in column K, on short term sheet

[Rob_010101]

Hello,

A simple one.

Private Sub Workbook_Open()

    Dim wsCSP As Worksheet
    Set wsCSP = Sheets("CSP Tracking")
    
    Application.ScreenUpdating = False
    
        With wsCSP.[A1].CurrentRegion
                .AutoFilter 10, "<" & [Today()]
                .Offset(1).Resize(Rows.Count - 1).EntireRow.Delete
                .AutoFilter
        End With
        
        Worksheets("CSP Tracking").Range("L1").AutoFilter
                
    Application.ScreenUpdating = True
    
End Sub

The above code executes when excel is opened. When this is finished working, I need it to go to the "Short Term" sheet, look at column K and select the first available blank cell it finds.

I've tried to add this myself, but I can only get it to open the "Short Term" sheet on whatever cell was last selected on that sheet.

Kind Regards

 

[DanteAmor]

Try this:

Private Sub Workbook_Open()
  Dim wsCSP As Worksheet
  
  Set wsCSP = Sheets("CSP Tracking")
  Application.ScreenUpdating = False
  With wsCSP.[A1].CurrentRegion
    .AutoFilter 10, "<" & [Today()]
    .Offset(1).Resize(Rows.Count - 1).EntireRow.Delete
  End With
  Worksheets("CSP Tracking").Range("L1").AutoFilter
  
  Sheets("Short Term").Select
  Range("K1:K" & Range("K" & Rows.Count).End(3).Row + 1).Find("", Range("K1"), xlValues, xlWhole).Select
  Application.ScreenUpdating = True
End Sub

 

[Rob_010101]

Try this:

Private Sub Workbook_Open()
  Dim wsCSP As Worksheet
 
  Set wsCSP = Sheets("CSP Tracking")
  Application.ScreenUpdating = False
  With wsCSP.[A1].CurrentRegion
    .AutoFilter 10, "<" & [Today()]
    .Offset(1).Resize(Rows.Count - 1).EntireRow.Delete
  End With
  Worksheets("CSP Tracking").Range("L1").AutoFilter
 
  Sheets("Short Term").Select
  Range("K1:K" & Range("K" & Rows.Count).End(3).Row + 1).Find("", Range("K1"), xlValues, xlWhole).Select
  Application.ScreenUpdating = True
End Sub

Yes, this works.

Thanks very much