マクロで困ってっます

質問

マクロの超初心者です。
サーバーからデータ（エクセル形式）をダウンロードし、別のエクセルブックに張り付け計算させるマクロを組んであるのですが、データをダウンロードをした際に必ず「total」の行が表示されてしまいます。（システム上、ダウンロードの際に削除することは出来ません）
このデータを計算用のブックに張り付ける際に「total」の行を削除したいのですが「total」の行が、毎回決まった行に表示されないのでどのようにすれば削除できるのか教えて下さい。（現在は、ダウンロードデータから手動で削除しております）

　　　　A　　 　B
1 　 300
2 　 100
3 　 200
4 　 100
5　 total 　 700

5の行を一行ごと削除したいのですが、ここが、6の行になったり15の行になったりします。
誠に申し訳ございませんが、ご教授のほど宜しくお願い致します。

回答No.3

web2525 · ベストアンサー

Rows(Columns("A:A").Find(What:="total").Row).Delete

これだけでいけますね、わざわざA:Aをセレクトする必要もなかったです

A列に"total"の文字列がない場合はエラーになります、必ず含まれているものとして考えています

お礼

親切に教えて頂き誠にありがとうございます。
無事、マクロが作成できました。本当にありがとうございます。
「total」については、毎回表記されますので問題はございません。
今後もマクロについて勉強していきますのでつまずいた時には、またご教授をお願い致します。

回答No.2

web2525

失礼しました

Columns("A:A").Select
Rows(Selection.Find(What:="total").Row).Delete Shift:=xlUp

こんな感じではいかがでしょうか

回答No.1

web2525

Columns("A:A").Select
Selection.Find(What:="total", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, MatchByte:=False, SearchFormat:=False).Select
Selection.Delete Shift:=xlUp

エクセル上マクロの記録で製作した検索行の削除マクロです、参考にしてみてください

補足

早速、ご回答して頂き誠にありがとうございます。
早速、教えて頂いた方法を試してみた結果、「total」の表記を削除することはできましたが、「total」の表記のある行の横列全体を削除したく今回、御質問させて頂きました。
教えて頂いたマクロを修正すればよいのですが、大変お恥ずかしい話、私の知識では、修正箇所、修正の仕方がわかりません。誠に申し訳ございませんが修正箇所、修正の仕方を教えて下さい。
宜しくお願い致します。