A-Eが空でない新しいワークシートにデータを貼り付けよう

Question

最初に使用可能な行にコピーした行を別のワークシートに貼り付けるのに問題があります。

問題カラムBに貼り付けるデータが必要ですが、マクロを他の列に貼り付ける必要があります。列AにはVlookupの式があり、列B〜Eには特定のドロップダウンがあり、これはExcelが空でないセルと見なします。

これが問題の原因かどうかわかりません。

マイコード;

Dim iRow As Integer 
Dim ws As Worksheet 
Set ws = Worksheets("Dispute_Details") 
ws.Activate 
On Error Resume Next 
iRow = Range("F:F").Find(What:=" ", SearchOrder:=xlRows, SearchDirection:=xlPrevious, LookIn:=xlValues).Row + 1 
Sheets(ws).Range("b", iRow).Activate 

Worksheets("Dispute_Details").Paste 
Application.CutCopyMode = False} 

Answer 1

Dim iRow As Long 
With Worksheets("Dispute_Details") 
    iRow = .Cells(.Rows.Count, 5).End(xlUp).Row + 1 
    .Range("B" & iRow).PasteSpecial Paste:=xlPasteAll 
    Application.CutCopyMode = False 
End With