Key in button not work

Originally Posted by jindon

Perhaps

Sub AddText2()
    Dim Lrow As Long
    With Worksheets("Sheet2")
        Lrow = .[min(if(f3:f23="",row(3:23)))]
        If Lrow = 0 Then
            MsgBox "Already full", vbCritical: Exit Sub
        End If
        .Range("F" & Lrow).Resize(, 2).Value = Array(.Range("D2").Value, .Range("D4").Value)
        .Range("D2,D4").ClearContents
    End With
End Sub

it worked. thanks lot Jindon