Using VBA to calculate cell values in rows based on criteria

I have a problem I hope I can get some help with. In a summary report I need to use date criterias: today's date compared to months in B1:M1 (all cells are date formatted using a userdefined date format to only display the monthname) to sum the rows of data only if an account number is listed in column A. (pls. see below example)

I.E. if todays date is Feb. 7th the VBA code should loop through all rows and only sum the numbers for January and february where an account # is present (it must be in VBA)

Here is what I have so far:

Sub Test()

Dim today, lastdayinmonth As Date
Dim i, ii As Integer
Dim months As Range

today = DateSerial(Year(Date), Month(Date), Day(Date))
lastdayinmonth = DateSerial(Year(Date), Month(Date) + 1, 0)
months = Sheet2.Range("B2:M2")

    If idag <= lastdayinmonth Then
        For i = 3 To 20
            If Not IsEmpty(Sheet2.Range("B"& i)) Then
            End If
        Next ii
    End If


End Sub