add a border to bottom of a row

[bdt]

Hi again guys,
Im hoping to be able to add a border to a row that has been added to worksheet "OVERTIME".
I've found this code, but know idea how to apply it to a row;
Range("A1") _ .Borders(xlEdgeBottom) _ .LineStyle = XlLineStyle.xlContinuous

The code I wish to add this to is;
'copy overtime saturday
With Sheets("ABACUS")
WKend = .Range("DE2").Value2
arr = .Range("AU21:AU32").Value
End With

With Sheets("OVERTIME")
' last used row in column B plus 1
writerow = .Range("B" & .Rows.Count).End(xlUp).Row + 1
.Range("A" & writerow) = WKend
.Range("B" & writerow).Resize(, UBound(arr)).Value = Application.Transpose(arr)
End With

Many thanks once again

 

[MARK858]

Try...

  'copy overtime saturday
    With Sheets("ABACUS")
        WKend = .Range("DE2").Value2
        arr = .Range("AU21:AU32").Value
    End With

    With Sheets("OVERTIME")
        ' last used row in column B plus 1
        writerow = .Range("B" & .Rows.Count).End(xlUp).Row + 1
        .Range("A" & writerow) = WKend
        With .Range("B" & writerow).Resize(, UBound(arr))
            .Value = Application.Transpose(arr)
            .Borders(xlEdgeBottom).LineStyle = xlContinuous
        End With
    End With

 

[bdt]

Mark858, thanks for your reply, this works as asked. But now realize I require the bottom border to cover columns A to X of said row.
Cheers

 

[NoSparks]

like this

With Sheets("OVERTIME")
    ' last used row in column B plus 1
    writerow = .Range("B" & .Rows.Count).End(xlUp).Row + 1
    .Range("A" & writerow) = WKend
    .Range("B" & writerow).Resize(, UBound(arr)).Value = Application.Transpose(arr)
    .Range("A" & writerow & ":X" & writerow).Borders(xlEdgeBottom).LineStyle = xlContinuous
End With

 

[bdt]

NoSparks, once again many thanks