Further to my previous post

Here is the code that I have been trying to use.

It seems to jump 2 rows after it gets to the dates larger or equal to the first of the month.

It also deleted one row which was less than the first day of the month.

I am completely confused.


Option Explicit
Option Compare Text
Dim dateFirstOfMonth ' first day of current month
Dim intRowCount As Integer ' holds the row that is going to be copied from the trade sheet
Dim intTargetRowCount As Integer ' holds the row that the data is going on cashflow
Dim intNumRows As Integer 'hold the no of rows of data in the cashflow sheet
Dim intColumnCount As Integer 'hold the number of columns in our data set

Sub Cashflow()

Call CashflowDeleteCurrentMonth



End Sub


Sub CashflowDeleteCurrentMonth()
'
' Cashflow Macro

dateFirstOfMonth = Sheets("Front Sheet").Range("H13")

'
Application.ScreenUpdating = False


intNumRows = Sheets("cashflow sheet").Range("a5").CurrentRegion.Rows.Count
'count how many rows of data in our data in our data set starting in row 5



intTargetRowCount = 5

For intTargetRowCount = 1 To intNumRows

If (Sheets("cashflow sheet").Range("a5").Cells(intTargetRowCount, 1).Value >= dateFirstOfMonth) Then

' looking for dates greater than or equal to the first day of the month

For intColumnCount = 1 To 25 ' I want to delete cols 1 to 25

Cells(intTargetRowCount, intColumnCount).ClearContents

Next intColumnCount

intTargetRowCount = intTargetRowCount + 1
'after the data is cleared it moves onto the next row

End If 'first condition is finished and closed off

Next
'it searches for the next date greater than the first day of the month




Application.ScreenUpdating = True


End Sub