i need to add a loop down until blank to below vba. loop down list is in column a from cell A4 and each time is being copied into cell B1. any ideas ?


sub test1()
Range("A4").Select
Selection.CopySelect
Range("B1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Call ThisWorkbook.ExcelRangeToPowerPoint

end sub