Set Chart data area using Lastrow

[sharky12345]

I'm trying to set the source range of a chart to the last used row but I'm struggling, this is what I have so far;

LastRow = Sheet5.Range("A65536").End(xlUp).Row
ActiveChart.ChartArea.Select
ActiveChart.SetSourceData source:=Range("B1:B" & LastRow",D1:D" & LastRow",F1:F" & LastRow",H1:H" & LastRow",J1:J" & LastRow",L1:L" & LastRow",N1:N" & LastRow",P1:P" & LastRow"")

The code is highlighted red and I've made a number of tweaks but can't get it to work - can someone please put me out of my misery?

 

[sericom]

Try this

ActiveChart.SetSourceData Source:=Range("B1:B" & LastRow & ",D1:D" & LastRow & ",F1:F" & LastRow & ",H1:H" & LastRow & ",J1:J" & LastRow & ",L1:L" & LastRow & ",N1:N" & LastRow & ",P1:P" & LastRow)

 

[FormR]

Hi, here's another way to write it that might be a bit easier to read/change.

ActiveChart.SetSourceData Source:=Range(Replace("B1:B@,D1:D@,F1:F@,H1:H@,J1:J@,L1:L@,N1:N@,P1:P@", "@", LastRow))