Macro that checks for divisibility of 2 and 3 for range of numbers

Column 1 is already set. Column 2 must check for divisibility of 2 and display "yes" if divisible and nothing if not. Same for column 3 checking for divisibility of 3. Here is what I have.

Sub Divisible()

'this macro determines if a number is divisible by 2 or 3

For rowcounter = 1 To 100

Cells(rowcounter, 1).Value = rowcounter 'column 1 has 1,2,3,...



Next rowcounter

End Sub

Thank you. Here is the code when I finished.

Sub Divisible()

'this macro determines if a number is divisible by 2 or 3



For rowcounter = 1 To 100

Cells(rowcounter, 1).Value = rowcounter

If Cells(rowcounter, 1).Value Mod 2 = 0 Then
Cells(rowcounter, 2).Value = "Yes"
ElseIf Cells(rowcounter, 2).Value Mod 2 = 1 Then
Cells(rowcounter, 2).Value = ""
End If

If Cells(rowcounter, 1).Value Mod 3 = 0 Then
Cells(rowcounter, 3).Value = "Yes"
ElseIf Cells(rowcounter, 3).Value Mod 3 = 1 Then
Cells(rowcounter, 3).Value = ""
End If

Next rowcounter

End Sub