how to set dynamic range with this code?

[jaik22]

Sub test()
Dim f As String
Dim ab As String

 text= ThisWorkbook.Worksheets("Sheet1").Range("F1").Value
filter = ThisWorkbook.Worksheets("Sheet1").Range("AB1").Value

If text = filter Then
  ThisWorkbook.Worksheets("Sheet1").Range("S1").Value = "xxxx"
End If

End Sub

I have code like that, but I would like to setup dynamic range for filter, text and validation column (column S).
Is there any way to make dynamic range with this code?

Thank you!

 

[AFPathfinder]

Using variables is the way to go to ID those values at runtime. Assuming the beginning of the range will always be known (not dynamic), you would use something like this to ID the last used row in a particular column (column 1 or A in this example):

Dim finalRow As Integer

finalRow = Cells(Rows.Count, [COLOR=#0000FF]1[/COLOR]).End(xlUp).Row

If the number of columns is dynamic, you would just shuffle that syntax around to find the last used column in a particular row:

Dim finalCol As Integer

finalCol = Cells(1, Columns.Count).End(xlToLeft).Column