Copy value after If

[uniks]

Hi everyone
I have number 1 to 10 in Column A and <code>name</code> in Column B. What I am trying to accomplish is to check the <code>name</code> in cell B2, if empty then it will copy the number from cell A2 to cell H2. But if cell B2 already contains a name then it will copy the number from cell A3 to cell H2 and so on.
here is my code

<code>Private Sub CommandButton1_Click()
If IsEmpty(Range("B2")) Then
    Range("A2").Copy destination:=Range("H2")
Else
    Worksheets("sheet6").Cells(Rows.Count, 1).End(xlUp).Offset(0, 1).Copy _
    destination:=Range("H2")
End If
End Sub</code>

 

[CharlesChuckieCharles]

what you describe is

If IsEmpty(Range("B2")) Then
    Range("H2").Value = Range("A2").Value
Else
    Range("H2").Value = Range("A3").Value
    
End If

But what i think you mean is

If IsEmpty(Cells(ActiveCell.Row, "B")) Then
    Cells(ActiveCell.Row, "H").Value = Cells(ActiveCell.Row, "A")
Else
    Cells(ActiveCell.Row, "H").Value = Cells(ActiveCell.Row + 1, "A")
   
End If

 

[uniks]

your code didn't work like what i've expected
what i want is to check the cell B2 whether it's empty or not. IF it's EMPTY

 

[uniks]

sorry for the incomplete post above,
what i want is to check the cell B2 whether it's empty or not. IF it's EMPTY then cell B2 will filled by value "A", then copy the value from A2 and place it in H2. After that check the cell B3 whether it's empty or not. IF it's EMPTY then cell B3 will filled by value "A", then copy the value from A3 and place it in H2.

 

[CharlesChuckieCharles]

Something More like

'MyDepth = ActiveSheet.Cells(Rows.Count, "B").End(xlUp).Row
For Each MyCell In Range("B2:B3")
    If IsEmpty(MyCell) Then
        MyCell.Value = "A"
        Range("H2").Value = Cells(MyCell.Row, "A").Value
    End If
Next MyCell