>>974 >>968
パラメータ省略ついでに、重そうな関数の呼び出しを1回減らして気休めレベルのスピードアップ

Sub Macro_962_3()
　　With Selection
　　　　Set c = .Cells(1).Offset(.Rows.Count - 1, .Columns.Count - 1)
　　　　Set f = .Find(What:="*", After:=c, SearchOrder:=xlByRows)
　　　　If Not f Is Nothing Then
　　　　　　r1& = f.Row
　　　　　　r2& = .Find(What:="*", SearchDirection:=xlPrevious).Row
　　　　　　c1& = .Find(What:="*", After:=c, SearchOrder:=xlByColumns).Column
　　　　　　c2& = .Find(What:="*", SearchDirection:=xlPrevious).Column
　　　　　　Range(Cells(r1&, c1&), Cells(r2&, c2&)).Select
　　　　End If
　　End With
End Sub