Find all possible combinations of letters

Where do you want the output? I now used range A1:A

Sub AllOptions()
Dim character As Integer 'Asc("a")=97, Asc("h")=104
Dim i, j, k As Long
Dim RowCounter
  RowCounter = 1
  For i = Asc("a") To Asc("h")
    For j = Asc("a") To Asc("h")
      For k = Asc("a") To Asc("h")
        If Abs(i - j) > 1 Or Abs(j - k) > 1 Then
          If i <> j And j <> k And i <> k Then
            Cells(RowCounter, 1) = Chr(i) & Chr(j) & Chr(k)
            RowCounter = RowCounter + 1
          End If
        End If
      Next k
    Next j
Next i
End Sub