VBA If文について セルの値がない場合の条件分岐

Question

下記内容で、Range（"A8")はテーブルの中のセルを指しています。A8セルの中が空白なら処理を何もせず、終わりたいのですが、下記内容だとIf後の処理が実行され「Selection.Group Start:=True, End:=True, Periods:=Array(False, False, False, _
False, True, False, True)」このピボットテーブル表記を変更する部分でエラーが出ます。値が入っていないと編集できない部分なので、ここでエラーが出ることは問題ではなく、セルが空白の場合、処理をしないようにすれば特に問題ないのですが、その条件分岐ができません。

この記述内容でなぜ条件分岐できないのでしょうか？
If Range("A8").Select <> "" Then　ここで、A8セルが空白でない場合、処理を実行しますとしているつもりです。

記述内容もあわせて教えてください。

以上ご確認お願いいたします。

Sub 更新()
'不適合抽出
Application.ScreenUpdating = False

Dim namelist As ListObject
Dim i As Long
Dim names As String

Sheets("原紙").Select
Set namelist = ActiveSheet.ListObjects("氏名")
Sheets("記入").Select


If Range("A8").Select <> "" Then

    For i = 1 To namelist.ListRows.Count
        names = namelist.ListRows(i).Range(1).Value
        Sheets("記入").Select
        ActiveSheet.ListObjects("全体").Range.AutoFilter Field:=3, Criteria1:=names
        Range("全体[[#Headers],[NO]]").Select
        Range(Selection, Selection.End(xlToRight)).Select
        Range(Selection, Selection.End(xlDown)).Select
        Selection.Copy
        Sheets(names).Select
        Range("A20").Select
        ActiveSheet.Paste
        Columns("A:I").EntireColumn.AutoFit
        Sheets("記入").Select
        ActiveSheet.ListObjects("全体").Range.AutoFilter Field:=3
        Range("A1").Select
    Next i


'グラフ更新
Dim mySheet As Object
    For Each mySheet In ThisWorkbook.Sheets
        If mySheet.Name = "原紙" Then
            GoTo continue
        ElseIf mySheet.Name = "記入" Then
            GoTo continue
        End If
        
        Sheets(mySheet.Name).Select
        ActiveSheet.ChartObjects("グラフ 1").Activate
        ActiveChart.PivotLayout.PivotTable.PivotCache.Refresh
continue:
    Next

Sheets("全体").Select

'グラフ表記更新
    Sheets("全体").Select
        Range("A32").Select
        **Selection.Group Start:=True, End:=True, Periods:=Array(False, False, False, _
            False, True, False, True)**


Sheets("記入").Select
Range("A1").Select
ThisWorkbook.Save
Application.ScreenUpdating = True

End If
End Sub

Answer 1

変更前の質問

下記内容で、Range（"全体")はテーブルを指しています。テーブルの中が空白ならMsgboxにてメッセージを表記、それ以外なら、Elseより下の処理をしてほしいのですが、("全体")のテーブルに値を入力しても「値が入力されていません」とメッセージが出てしまいます。

CountA関数で値や式のあるセルの数を取得できます。

If WorksheetFunction.CountA(Range("全体"))=0 Then
    MsgBox "値が入力されていません"
Else

質問内容が変更されたので

If Range("A8").Select <> "" Then　ここで、A8セルが空白でない場合、処理を実行しますとしているつもりです。

If Range("A8").Select <> "" Then

Selectはそのセルを選択しなさいと言う命令です。
セルの値を取得するのはValueです。

If Range("A8").Value <> "" Then

Comments

[退会済みユーザー]

hatena1９様
ご返信ありがとうございます。
私の説明が悪かったと思います、セルに値がある場合にのみ後の処理を実行したいという内容です。
質問内容も分かりやすいよう変更いたしましたのでもしよろしければ、再度ご教授お願いいたします。