キー値をコピー/貼り付けするためのelseステートメント

Question

私は、他のワークシートのデータを1つのマスターワークブックマスターシートにコピーして貼り付けるコードを作っています。以下のコードでは、列BXから列Aの最初の空行にデータをコピーして貼り付け、列CCの列Bの最初の空行に対して同じ処理を行います。私はしかし、列Bの（10番目の）行に列CCを貼り付けたいと思います。これどうやってするの？

lRow = copySheet.Cells(copySheet.Rows.Count, 1).End(xlUp).Row 

With copySheet.Range("BX2:BX" & lRow) 
pasteSheet.Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).Resize(.Rows.Count, .Columns.Count) = .Value 
End With 

'Determine last row of Column B in copySheet 
lRow = copySheet.Cells(copySheet.Rows.Count, 1).End(xlUp).Row 

With copySheet.Range("CC2:CC" & lRow) 
pasteSheet.Cells(Rows.Count, "B").End(xlUp).Offset(1, 0).Resize(.Rows.Count, .Columns.Count) = .Value 
End With 

ここで、別の列のif条件を追加したいと思います。 "Worksheet" data "の列Uにセル値" 8636 "がある場合は、これらの値をワークシート" KomKo "（ペーストシート）のColumn Hに貼り付けて、次の行に" with 「部分。

さもなければ

（列Hの値が8636でない場合）、それはワークシートでカラムGにこの列内の値を貼り付けなければならない 『再度上記と同じ選好とKomKo』（pastesheet）。

私はこれを行うことができますどのように？

Answer 1

てみ

if worksheetfunction.CountIf(Column("U"),"8636")>0 then 
    *Copy to Column H* 
else 
    *Copy to Column G* 
end if