Copy Range Rows To Another Sheet Matching Condition In Column

i'm trying to create a macro to find any value <> "" from COLUMN B then copy Bx;Cx;Dx and paste into another worksheet with the name of COLUMN A.

And when the cells Cx or Dx is empty should appear 0 into the other worksheet

for example.
sheet1 ..... cell("dx") is empty
a b c d
w 5 3

the macro would copy 5,3,0 and paste into sheet named "w".

i found this code on internet but it's not quite good for me because it copies the hole row. i tried everything to change that but i couldn't.

[url]
(ORIGINAL CODE)



Sub SearchForString()

Dim LSearchRow As Integer
Dim LCopyToRow As Integer