さっそくの回答ありがとうございます

>>154>>156
すみませんA５ではなくE1でした
A列には2018-08など年月データが増えていきます
2018-の表示はうちのPCからCSVで出力した時に自然とそう出力されるので
E1には=TEXT(TODAY(),"yyyy-mm")としています

>>155
すみません書き間違えました
【4 VBAでの回答の可否】 可です

色々と書き間違えていてみませんがご回答よろしくお願いします