Frage zu ".End(xlUp).Row + 1), 1)"

[Eizi100]

Hallo Zusammen

Ich habe eine Frage zu .End(xlUp).Row + 1), 1) 
Ist es möglich, dass man auch mehrere nebeneinanderliegende Zellen anspricht? 
Ich trage unter der letzten beschriebenen Zeile eine Linie ein. Nur will ich diese von A bis J eintragen. Mit diesem Code kann ich aber nur eine Spalte ansprechen

mein gesamter Code

Code:

With Cells(WorksheetFunction.Max(6, Range("A50").End(xlUp).Row + 1), 1)
.Borders(xlDiagonalDown).LineStyle = xlNone
.Borders(xlDiagonalUp).LineStyle = xlNone
.Borders(xlEdgeLeft).LineStyle = xlNone
.Borders(xlEdgeTop).LineStyle = xlNone
.Borders(xlEdgeBottom).LineStyle = xlNone
With .Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = 3
End With
.Borders(xlInsideHorizontal).LineStyle = xlNone
End With

Vielleicht kann mir wer helfen

LG
Michael

[RPP63]

Moin!
Spalte J ist 10, also
With Cells(WorksheetFunction.Max(6, Range("A50").End(xlUp).Row + 1), 1).Resize(, 10)

Gruß Ralf

[Eizi100]

Ist das echt soooo einfach für dich?

Ich google seit 07:00 rum und komme bzw kam auf keinem grünen Zweig

Danke
LG
Michael

[RPP63]

Wenn Du erst mal 15 Jahre mit VBA arbeitest, wird sich Dein "Sprachschatz" ebenfalls erweitern.

Wobei ich momentan kaum noch etwas mit VBA mache, weil ich die vielen neuen Möglichkeiten in Excel 365 spannender finde.
VBA nur noch in Foren, um nicht einzurosten.