Macro is pasting over data

[dnicholsby]

Hello, I have the following code and I would expect it to only paste from B18 downwards but it is going higher.

Dim wsFor Each ws In Sheets(Array("Consumer Discretionary", "Consumer Staples", "Energy", "Banks", "Financials excl Banks", "Healthcare", "Industrials", "IT", "Materials", _
"Real Estate", "Telecoms", "Utilities"))


ws.Select
If range("A18") <> "" Then


    With ws
    .range("B18:AU18").Copy
    .range("A18", range("A18").End(xlDown)).Offset(0, 1).Select
    .range(Selection, Selection.End(xlUp)).Select
    .Paste
    End With
End If


Next ws

 

[Fluff]

Hia
Its going higher because of the section in blue

Dim wsFor Each ws In Sheets(Array("Consumer Discretionary", "Consumer Staples", "Energy", "Banks", "Financials excl Banks", "Healthcare", "Industrials", "IT", "Materials", _
"Real Estate", "Telecoms", "Utilities"))


ws.Select
If range("A18") <> "" Then


    With ws
    .range("B18:AU18").Copy
    .range("A18", range("A18").End(xlDown)).Offset(0, 1).Select
    .range(Selection, Selection.[COLOR=#0000ff]End(xlUp)[/COLOR]).Select
    .Paste
    End With
End If


Next ws

 

[dnicholsby]

Sorted it thanks!

 

[Fluff]

No problem