Quick VBA Question - Adding Another Condition - Use ElseIf?

[garak0410]

Why is there no space in front of Then?

Test for the HP-1 value first then if field is empty.

If field is empty you want it left empty?

If Sheets("TRIM").Visible Then        
   Sheets("TRIM").Select
   Range("D13").Select
   Do Until ActiveCell.Offset(0, -1).Value = ""
   If ActiveCell.Value = "HP-1" Then
      ActiveCell.Value = "16 GA."
      Else
        If ActiveCell.Value <> "" Then
            ActiveCell.Value = "26 GA."
         End If
'         ActiveCell.Offset(1, 0).Select
'        Loop
'    End If

This is what I created and is throwing back that weird compile error.