If # > 0 in $D4 then $A4 thru $D4 BorderAround

FWIW:

Sub klotzy()
Dim rcell As Range
For Each rcell In Range("D2:D" & Range("D" & Rows.Count).End(3).row)
    If IsNumeric(rcell) And Len(rcell) > 0 Then
        With Range(Cells(rcell.row, "A"), Cells(rcell.row, "D"))
            .Borders(xlDiagonalDown).LineStyle = xlNone
            .Borders(xlDiagonalUp).LineStyle = xlNone
            With .Borders(xlEdgeLeft)
                .LineStyle = xlContinuous
                .Weight = xlThin
                .ColorIndex = xlAutomatic
            End With
            With .Borders(xlEdgeTop)
                .LineStyle = xlContinuous
                .Weight = xlThin
                .ColorIndex = xlAutomatic
            End With
            With .Borders(xlEdgeBottom)
                .LineStyle = xlContinuous
                .Weight = xlThin
                .ColorIndex = xlAutomatic
            End With
            With .Borders(xlEdgeRight)
                .LineStyle = xlContinuous
                .Weight = xlThin
                .ColorIndex = xlAutomatic
             End With
            .Borders(xlInsideVertical).LineStyle = xlNone
        End With
    End If
Next rcell
End Sub