countifs to last row

[Godders199]

Hello, i have written the following code, which works fine for one row, i am trying to change it to go to the last row, with the criteria changing from A2 to a3. a4 etc,

Range("f2") = WorksheetFunction.CountIfs(ThisWorkbook.Sheets("Adviser data").Range("A:A"), ThisWorkbook.Sheets("advisers").Range("a2"), ThisWorkbook.Sheets("Adviser data").Range("d:d"), ">=" & Daterng, ThisWorkbook.Sheets("Adviser data").Range("d:d"), "<=" & Daterng1)

heres what i have done to try and get to last row
With Sheets("Advisers")
Dim rowlast As Long
rowlast = .Range("a" & Rows.Count).End(xlUp).Row

With .Range("f2& K & rowlast") = WorksheetFunction.CountIfs(ThisWorkbook.Sheets("Adviser data").Range("A:A"), ThisWorkbook.Sheets("advisers").Range("a2"), ThisWorkbook.Sheets("Adviser data").Range("d:d"), ">=" & Daterng, ThisWorkbook.Sheets("Adviser data").Range("d:d"), "<=" & Daterng1)
End With
End With
Can anyone say where i am gong wrong please

 

[wideboydixon]

Like this maybe?

Dim lastRow As Long
Dim thisRow As Long

With Sheets("Advisers")
    lastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
    For thisRow = 2 To lastRow
        .Cells(thisRow, "F").Value = WorksheetFunction.CountIfs(ThisWorkbook.Sheets("Adviser data").Range("A:A"), .Cells(thisRow, "A").Value, ThisWorkbook.Sheets("Adviser data").Range("D:D"), ">=" & Daterng, ThisWorkbook.Sheets("Adviser data").Range("D:D"), "<=" & Daterng1)
    Next thisRow
End With

WBD

 

[Godders199]

Like this maybe?

Dim lastRow As Long
Dim thisRow As Long

With Sheets("Advisers")
    lastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
    For thisRow = 2 To lastRow
        .Cells(thisRow, "F").Value = WorksheetFunction.CountIfs(ThisWorkbook.Sheets("Adviser data").Range("A:A"), .Cells(thisRow, "A").Value, ThisWorkbook.Sheets("Adviser data").Range("D:D"), ">=" & Daterng, ThisWorkbook.Sheets("Adviser data").Range("D:D"), "<=" & Daterng1)
    Next thisRow
End With

WBD

thanks had just worked i out with
Dim lastrowcolumnA As Long
lastrowcolumnA = Range("a" & Rows.Count).End(xlUp).Row
For i = 2 To lastrowcolumnA
Cells(i, 6) = WorksheetFunction.CountIfs(ThisWorkbook.Sheets("Adviser data").Range("A:A"), Cells(i, 1), ThisWorkbook.Sheets("Adviser data").Range("d:d"), ">=" & Daterng, ThisWorkbook.Sheets("Adviser data").Range("d:d"), "<=" & Daterng1)
Next