Remove data from every other cell in a column

Justin_M

Justin_M

New Member
Joined
Feb 3, 2021
Messages
31
Office Version
  1. 2016
Platform
  1. Windows
Hello everyone! Here is an example of what I made via the 'record macro' feature:

VBA Code: 
Sub RemoveEveryOtherCell()

    Selection.ClearContents
    Range("D9").Select
    Selection.ClearContents
    Range("D11").Select
    Selection.ClearContents
    Range("D13").Select
    Selection.ClearContents
    Range("D15").Select
    Selection.ClearContents
    Range("D17").Select
    Selection.ClearContents
    Range("D19").Select
    Selection.ClearContents
    Range("D21").Select
    Selection.ClearContents
    Range("D23").Select
    Selection.ClearContents
    Range("D25").Select
    Selection.ClearContents
    Range("D27").Select
    Selection.ClearContents
    Range("D29").Select
    Selection.ClearContents
    Range("D31").Select
    Selection.ClearContents
    Range("D33").Select
    Selection.ClearContents
    Range("D35").Select
    Selection.ClearContents
    Range("D37").Select
    Selection.ClearContents
    Range("D39").Select
    Selection.ClearContents
    Range("D41").Select
    Selection.ClearContents
    Range("D43").Select
    Selection.ClearContents
    Range("D45").Select
    Selection.ClearContents
    Range("D47").Select
    Selection.ClearContents
    Range("D49").Select
    Selection.ClearContents
    Range("D51").Select
    Selection.ClearContents
    Range("D53").Select
    Selection.ClearContents
    Range("D55").Select
    Selection.ClearContents
    Range("D57").Select
    Selection.ClearContents
    Range("D59").Select
    Selection.ClearContents
    Range("D61").Select
    Selection.ClearContents
    Range("D63").Select
    Selection.ClearContents
    Range("D65").Select
    Selection.ClearContents
    Range("D67").Select
    Selection.ClearContents
    Range("D69").Select
    Selection.ClearContents
    Range("D71").Select
    Selection.ClearContents
    Range("D73").Select
    Selection.ClearContents
    Range("D75").Select
    Selection.ClearContents
    Range("D77").Select
    Selection.ClearContents
    Range("D79").Select
    Selection.ClearContents
    Range("D81").Select
    Selection.ClearContents
    Range("D83").Select
    Selection.ClearContents
    Range("D85").Select
    Selection.ClearContents
    Range("D87").Select
    Selection.ClearContents
    Range("D89").Select
    Selection.ClearContents
    Range("D95").Select
    Selection.ClearContents
    Range("D97").Select
    Selection.ClearContents
    Range("D99").Select
    Selection.ClearContents
    Range("D101").Select
    Selection.ClearContents
    Range("D103").Select
    Selection.ClearContents
    Range("D105").Select
    Selection.ClearContents
    Range("D107").Select
    Selection.ClearContents
    Range("D109").Select
    Selection.ClearContents
    Range("D111").Select
    Selection.ClearContents
    Range("D113").Select
    Selection.ClearContents
    Range("D115").Select
    Selection.ClearContents
    Range("D117").Select
    Selection.ClearContents
    Range("D119").Select
    Selection.ClearContents
    Range("D121").Select
    Selection.ClearContents
    Range("D123").Select
    Selection.ClearContents
    Range("D125").Select
    Selection.ClearContents
    Range("D127").Select
    Selection.ClearContents
    Range("D129").Select
    Selection.ClearContents
    Range("D131").Select
    Selection.ClearContents
    Range("D133").Select
    Selection.ClearContents
    Range("D135").Select
    Selection.ClearContents
    Range("D137").Select
    Selection.ClearContents
    Range("D139").Select
    Selection.ClearContents
    Range("D141").Select
    Selection.ClearContents
    Range("D143").Select
    Selection.ClearContents
    Range("D145").Select
    Selection.ClearContents
    Range("D147").Select
    Selection.ClearContents
    Range("D149").Select
    Selection.ClearContents
    Range("D151").Select
    Selection.ClearContents
    Range("D153").Select
    Selection.ClearContents
    Range("D155").Select
    Selection.ClearContents
    Range("D157").Select
    Selection.ClearContents
    Range("D159").Select
    Selection.ClearContents
    Range("D161").Select
    Selection.ClearContents
    Range("D163").Select
    Selection.ClearContents
    Range("D165").Select
    Selection.ClearContents
    Range("D167").Select
    Selection.ClearContents
    Range("D169").Select
    Selection.ClearContents
    Range("D171").Select
    Selection.ClearContents
    Range("D173").Select
    Selection.ClearContents
    Range("D175").Select
    Selection.ClearContents
    Range("D177").Select
    Selection.ClearContents
    Range("D183").Select
    Selection.ClearContents
    Range("D185").Select
    Selection.ClearContents
    Range("D187").Select
    Selection.ClearContents
    Range("D189").Select
    Selection.ClearContents
    Range("D191").Select
    Selection.ClearContents
    Range("D193").Select
    Selection.ClearContents
    Range("D195").Select
    Selection.ClearContents
    Range("D197").Select
    Selection.ClearContents
    Range("D199").Select
    Selection.ClearContents
    Range("D201").Select
    Selection.ClearContents
    Range("D203").Select
    Selection.ClearContents
    Range("D205").Select
    Selection.ClearContents
    Range("D207").Select
    Selection.ClearContents
    Range("D209").Select
    Selection.ClearContents
    Range("D211").Select
    Selection.ClearContents
    Range("D213").Select
    Selection.ClearContents
    Range("D215").Select
    Selection.ClearContents
    Range("D217").Select
    Selection.ClearContents
    Range("D219").Select
    Selection.ClearContents
    Range("D221").Select
    Selection.ClearContents
    Range("D223").Select
    Selection.ClearContents
    Range("D225").Select
    Selection.ClearContents
    Range("D227").Select
    Selection.ClearContents
    Range("D229").Select
    Selection.ClearContents
    Range("D231").Select
    Selection.ClearContents
    Range("D233").Select
    Selection.ClearContents
    Range("D235").Select
    Selection.ClearContents
    Range("D237").Select
    Selection.ClearContents
    Range("D239").Select
    Selection.ClearContents
    Range("D241").Select
    Selection.ClearContents
    Range("D243").Select
    Selection.ClearContents
    Range("D245").Select
    Selection.ClearContents
    Range("D247").Select
    Selection.ClearContents
    Range("D249").Select
    Selection.ClearContents
    Range("D251").Select
    Selection.ClearContents
    Range("D253").Select
    Selection.ClearContents
    Range("D255").Select
    Selection.ClearContents
    Range("D257").Select
    Selection.ClearContents
    Range("D259").Select
    Selection.ClearContents
    Range("D261").Select
    Selection.ClearContents
    Range("D263").Select
    Selection.ClearContents
    Range("D265").Select
    Selection.ClearContents
    Range("D271").Select
    Selection.ClearContents
    Range("D273").Select
    Selection.ClearContents
    Range("D275").Select
    Selection.ClearContents
    Range("D277").Select
    Selection.ClearContents
    Range("D279").Select
    Selection.ClearContents
    Range("D281").Select
    Selection.ClearContents
    Range("D283").Select
    Selection.ClearContents
    Range("D285").Select
    Selection.ClearContents
    Range("D287").Select
    Selection.ClearContents
    Range("D289").Select
    Selection.ClearContents
    Range("D291").Select
    Selection.ClearContents
    Range("D293").Select
    Selection.ClearContents
    Range("D295").Select
    Selection.ClearContents
    Range("D297").Select
    Selection.ClearContents
    Range("D299").Select
    Selection.ClearContents
    Range("D301").Select
    Selection.ClearContents
    Range("D303").Select
    Selection.ClearContents
    Range("D305").Select
    Selection.ClearContents
    Range("D307").Select
    Selection.ClearContents
    Range("D309").Select
    Selection.ClearContents
    Range("D311").Select
    Selection.ClearContents
    Range("D313").Select
    Selection.ClearContents
    Range("D315").Select
    Selection.ClearContents
    Range("D317").Select
    Selection.ClearContents
    Range("D319").Select
    Selection.ClearContents
    Range("D321").Select
    Selection.ClearContents
    Range("D323").Select
    Selection.ClearContents
    Range("D325").Select
    Selection.ClearContents
    Range("D327").Select
    Selection.ClearContents
    Range("D329").Select
    Selection.ClearContents
    Range("D331").Select
    Selection.ClearContents
    Range("D333").Select
    Selection.ClearContents
    Range("D335").Select
    Selection.ClearContents
    Range("D337").Select
    Selection.ClearContents
    Range("D339").Select
    Selection.ClearContents
    Range("D341").Select
    Selection.ClearContents
    Range("D343").Select
    Selection.ClearContents
    Range("D345").Select
    Selection.ClearContents
    Range("D353").Select
    Selection.ClearContents
    Range("D355").Select
    Selection.ClearContents
    Range("D357").Select
    Selection.ClearContents
    Range("D359").Select
    Selection.ClearContents
    Range("D361").Select
    Selection.ClearContents
    Range("D363").Select
    Selection.ClearContents
    Range("D365").Select
    Selection.ClearContents
    Range("D367").Select
    Selection.ClearContents
    Range("D369").Select
    Selection.ClearContents
    Range("D371").Select
    Selection.ClearContents
    Range("D373").Select
    Selection.ClearContents
    Range("D375").Select
    Selection.ClearContents
    Range("D377").Select
    Selection.ClearContents
    Range("D379").Select
    Selection.ClearContents
    Range("D381").Select
    Selection.ClearContents
    Range("D383").Select
    Selection.ClearContents
    Range("D385").Select
    Selection.ClearContents
    Range("D387").Select
    Selection.ClearContents
    Range("D389").Select
    Selection.ClearContents
    Range("D391").Select
    Selection.ClearContents
    Range("D393").Select
    Selection.ClearContents
    Range("D395").Select
    Selection.ClearContents
    Range("D397").Select
    Selection.ClearContents
    Range("D399").Select
    Selection.ClearContents
    Range("D401").Select
    Selection.ClearContents
    Range("D403").Select
    Selection.ClearContents
    Range("D405").Select
    Selection.ClearContents
    Range("D407").Select
    Selection.ClearContents
    Range("D409").Select
    Selection.ClearContents
    Range("D411").Select
    Selection.ClearContents
    Range("D413").Select
    Selection.ClearContents
    Range("D415").Select
    Selection.ClearContents
    Range("D417").Select
    Selection.ClearContents
    Range("D419").Select
    Selection.ClearContents
    Range("D421").Select
    Selection.ClearContents
    Range("D423").Select
    Selection.ClearContents
    Range("D425").Select
    Selection.ClearContents
    Range("D427").Select
    Selection.ClearContents
    Range("D429").Select
    Selection.ClearContents
    Range("D431").Select
    Selection.ClearContents
    Range("D433").Select
    Selection.ClearContents
    Range("D435").Select
    Selection.ClearContents
    Range("D441").Select
    Selection.ClearContents
    Range("D443").Select
    Selection.ClearContents
    Range("D445").Select
    Selection.ClearContents
    Range("D447").Select
    Selection.ClearContents
    Range("D449").Select
    Selection.ClearContents
    Range("D451").Select
    Selection.ClearContents
    Range("D453").Select
    Selection.ClearContents
    Range("D455").Select
    Selection.ClearContents
    Range("D457").Select
    Selection.ClearContents
    Range("D459").Select
    Selection.ClearContents
    Range("D461").Select
    Selection.ClearContents
    Range("D463").Select
    Selection.ClearContents
    Range("D465").Select
    Selection.ClearContents
    Range("D467").Select
    Selection.ClearContents
    Range("D469").Select
    Selection.ClearContents
    Range("D471").Select
    Selection.ClearContents
    Range("D473").Select
    Selection.ClearContents
    Range("D475").Select
    Selection.ClearContents
    Range("D477").Select
    Selection.ClearContents
    Range("D479").Select
    Selection.ClearContents
    Range("D481").Select
    Selection.ClearContents
    Range("D483").Select
    Selection.ClearContents
    Range("D485").Select
    Selection.ClearContents
    Range("D487").Select
    Selection.ClearContents
    Range("D489").Select
    Selection.ClearContents
    Range("D491").Select
    Selection.ClearContents
    Range("D493").Select
    Selection.ClearContents
    Range("D495").Select
    Selection.ClearContents
    Range("D497").Select
    Selection.ClearContents
    Range("D499").Select
    Selection.ClearContents
    Range("D501").Select
    Selection.ClearContents
    Range("D503").Select
    Selection.ClearContents
    Range("D505").Select
    Selection.ClearContents
    Range("D507").Select
    Selection.ClearContents
    Range("D509").Select
    Selection.ClearContents
    Range("D511").Select
    Selection.ClearContents
    Range("D513").Select
    Selection.ClearContents
    Range("D515").Select
    Selection.ClearContents
    Range("D517").Select
    Selection.ClearContents
    Range("D519").Select
    Selection.ClearContents
    Range("D521").Select
    Selection.ClearContents
    Range("D523").Select
    Selection.ClearContents
    Range("D529").Select
    Selection.ClearContents
    Range("D531").Select
    Selection.ClearContents
    Range("D533").Select
    Selection.ClearContents
    Range("D535").Select
    Selection.ClearContents
    Range("D537").Select
    Selection.ClearContents
    Range("D539").Select
    Selection.ClearContents
    Range("D541").Select
    Selection.ClearContents
    Range("D543").Select
    Selection.ClearContents
    Range("D545").Select
    Selection.ClearContents
    Range("D547").Select
    Selection.ClearContents
    Range("D549").Select
    Selection.ClearContents
    Range("D551").Select
    Selection.ClearContents
    Range("D553").Select
    Selection.ClearContents
    Range("D555").Select
    Selection.ClearContents
    Range("D557").Select
    Selection.ClearContents
    Range("D559").Select
    Selection.ClearContents
    Range("D561").Select
    Selection.ClearContents
    Range("D563").Select
    Selection.ClearContents
    Range("D565").Select
    Selection.ClearContents
    Range("D567").Select
    Selection.ClearContents
    Range("D569").Select
    Selection.ClearContents
    Range("D571").Select
    Selection.ClearContents
    Range("D573").Select
    Selection.ClearContents
    Range("D575").Select
    Selection.ClearContents
    Range("D577").Select
    Selection.ClearContents
    Range("D579").Select
    Selection.ClearContents
    Range("D581").Select
    Selection.ClearContents
    Range("D583").Select
    Selection.ClearContents
    Range("D585").Select
    Selection.ClearContents
    Range("D587").Select
    Selection.ClearContents
    Range("D589").Select
    Selection.ClearContents
    Range("D591").Select
    Selection.ClearContents
    Range("D593").Select
    Selection.ClearContents
    Range("D595").Select
    Selection.ClearContents
    Range("D597").Select
    Selection.ClearContents
    Range("D599").Select
    Selection.ClearContents
    Range("D601").Select
    Selection.ClearContents
    Range("D603").Select
    Selection.ClearContents
    Range("D605").Select
    Selection.ClearContents
    Range("D607").Select
    Selection.ClearContents
    Range("D609").Select
    Selection.ClearContents
    Range("D611").Select
    Selection.ClearContents
    Range("D617").Select
    Selection.ClearContents
    Range("D619").Select
    Selection.ClearContents
    Range("D621").Select
    Selection.ClearContents
    Range("D623").Select
    Selection.ClearContents
    Range("D625").Select
    Selection.ClearContents
    Range("D627").Select
    Selection.ClearContents
    Range("D629").Select
    Selection.ClearContents
    Range("D631").Select
    Selection.ClearContents
    Range("D633").Select
    Selection.ClearContents
    Range("D635").Select
    Selection.ClearContents
    Range("D637").Select
    Selection.ClearContents
    Range("D639").Select
    Selection.ClearContents
    Range("D641").Select
    Selection.ClearContents
    Range("D643").Select
    Selection.ClearContents
    Range("D645").Select
    Selection.ClearContents
    Range("D647").Select
    Selection.ClearContents
    Range("D649").Select
    Selection.ClearContents
    Range("D651").Select
    Selection.ClearContents
    Range("D653").Select
    Selection.ClearContents
    Range("D655").Select
    Selection.ClearContents
    Range("D657").Select
    Selection.ClearContents
    Range("D659").Select
    Selection.ClearContents
    Range("D661").Select
    Selection.ClearContents
    Range("D663").Select
    Selection.ClearContents
    Range("D665").Select
    Selection.ClearContents
    Range("D667").Select
    Selection.ClearContents
    Range("D669").Select
    Selection.ClearContents
    Range("D671").Select
    Selection.ClearContents
    Range("D673").Select
    Selection.ClearContents
    Range("D675").Select
    Selection.ClearContents
    Range("D677").Select
    Selection.ClearContents
    Range("D679").Select
    Selection.ClearContents
    Range("D681").Select
    Selection.ClearContents
    Range("D683").Select
    Selection.ClearContents
    Range("D685").Select
    Selection.ClearContents
    Range("D687").Select
    Selection.ClearContents
    Range("D689").Select
    Selection.ClearContents
    Range("D691").Select
    Selection.ClearContents
    Range("D693").Select
    Selection.ClearContents
    Range("D701").Select
    Selection.ClearContents
    Range("D703").Select
    Selection.ClearContents
    Range("D705").Select
    Selection.ClearContents
    Range("D707").Select
    Selection.ClearContents
    Range("D709").Select
    Selection.ClearContents
    Range("D711").Select
    Selection.ClearContents
    Range("D713").Select
    Selection.ClearContents
    Range("D715").Select
    Selection.ClearContents
    Range("D717").Select
    Selection.ClearContents
    Range("D719").Select
    Selection.ClearContents
    Range("D721").Select
    Selection.ClearContents
    Range("D723").Select
    Selection.ClearContents
    Range("D725").Select
    Selection.ClearContents
    Range("D727").Select
    Selection.ClearContents
    Range("D729").Select
    Selection.ClearContents
    Range("D731").Select
    Selection.ClearContents
    Range("D733").Select
    Selection.ClearContents
    Range("D735").Select
    Selection.ClearContents
    Range("D737").Select
    Selection.ClearContents
    Range("D739").Select
    Selection.ClearContents
    Range("D741").Select
    Selection.ClearContents
    Range("D743").Select
    Selection.ClearContents
    Range("D745").Select
    Selection.ClearContents
    Range("D747").Select
    Selection.ClearContents
    Range("D749").Select
    Selection.ClearContents
    Range("D751").Select
    Selection.ClearContents
    Range("D753").Select
    Selection.ClearContents
    Range("D755").Select
    Selection.ClearContents
    Range("D757").Select
    Selection.ClearContents
    Range("D759").Select
    Selection.ClearContents
    Range("D761").Select
    Selection.ClearContents
    Range("D763").Select
    Selection.ClearContents
    Range("D765").Select
    Selection.ClearContents
    Range("D767").Select
    Selection.ClearContents
    Range("D769").Select
    Selection.ClearContents
    Range("D771").Select
    Selection.ClearContents
    Range("D777").Select
    Selection.ClearContents
    Range("D779").Select
    Selection.ClearContents
    Range("D781").Select
    Selection.ClearContents
    Range("D783").Select
    Selection.ClearContents
    Range("D785").Select
    Selection.ClearContents
    Range("D787").Select
    Selection.ClearContents
    Range("D789").Select
    Selection.ClearContents
    Range("D791").Select
    Selection.ClearContents
    Range("D793").Select
    Selection.ClearContents
    Range("D795").Select
    Selection.ClearContents
    Range("D797").Select
    Selection.ClearContents
    Range("D799").Select
    Selection.ClearContents
    Range("D801").Select
    Selection.ClearContents
    Range("D803").Select
    Selection.ClearContents
    Range("D805").Select
    Selection.ClearContents
    Range("D807").Select
    Selection.ClearContents
    Range("D809").Select
    Selection.ClearContents
    Range("D811").Select
    Selection.ClearContents
    Range("D813").Select
    Selection.ClearContents
    Range("D815").Select
    Selection.ClearContents
    Range("D817").Select
    Selection.ClearContents
    Range("D819").Select
    Selection.ClearContents
    Range("D821").Select
    Selection.ClearContents
    Range("D823").Select
    Selection.ClearContents
    Range("D825").Select
    Selection.ClearContents
    Range("D827").Select
    Selection.ClearContents
    Range("D829").Select
    Selection.ClearContents
    Range("D831").Select
    Selection.ClearContents
    Range("D833").Select
    Selection.ClearContents
    Range("D835").Select
    Selection.ClearContents
    Range("D837").Select
    Selection.ClearContents
    Range("D839").Select
    Selection.ClearContents
    Range("D841").Select
    Selection.ClearContents
    Range("D843").Select
    Selection.ClearContents
    Range("D845").Select
    Selection.ClearContents
    Range("D847").Select
    Selection.ClearContents
    Range("D853").Select
    Selection.ClearContents
    Range("D855").Select
    Selection.ClearContents
    Range("D857").Select
    Selection.ClearContents
    Range("D859").Select
    Selection.ClearContents
    Range("D861").Select
    Selection.ClearContents
    Range("D863").Select
    Selection.ClearContents
    Range("D865").Select
    Selection.ClearContents
    Range("D867").Select
    Selection.ClearContents
    Range("D869").Select
    Selection.ClearContents
    Range("D871").Select
    Selection.ClearContents
    Range("D873").Select
    Selection.ClearContents
    Range("D875").Select
    Selection.ClearContents
    Range("D877").Select
    Selection.ClearContents
    Range("D879").Select
    Selection.ClearContents
    Range("D881").Select
    Selection.ClearContents
    Range("D883").Select
    Selection.ClearContents
    Range("D885").Select
    Selection.ClearContents
    Range("D887").Select
    Selection.ClearContents
    Range("D889").Select
    Selection.ClearContents
    Range("D891").Select
    Selection.ClearContents
    Range("D893").Select
    Selection.ClearContents
    Range("D895").Select
    Selection.ClearContents
    Range("D897").Select
    Selection.ClearContents
    Range("D899").Select
    Selection.ClearContents
    Range("D901").Select
    Selection.ClearContents
    Range("D903").Select
    Selection.ClearContents
    Range("D905").Select
    Selection.ClearContents
    Range("D907").Select
    Selection.ClearContents
    Range("D909").Select
    Selection.ClearContents
    Range("D911").Select
    Selection.ClearContents
    Range("D913").Select
    Selection.ClearContents
    Range("D915").Select
    Selection.ClearContents
    Range("D917").Select
    Selection.ClearContents
    Range("D919").Select
    Selection.ClearContents
    Range("D921").Select
    Selection.ClearContents
    Range("D929").Select
    Selection.ClearContents
    Range("D931").Select
    Selection.ClearContents
    Range("D933").Select
    Selection.ClearContents
    Range("D935").Select
    Selection.ClearContents
    Range("D937").Select
    Selection.ClearContents
    Range("D939").Select
    Selection.ClearContents
    Range("D941").Select
    Selection.ClearContents
    Range("D943").Select
    Selection.ClearContents
    Range("D945").Select
    Selection.ClearContents
    Range("D947").Select
    Selection.ClearContents
    Range("D949").Select
    Selection.ClearContents
    Range("D951").Select
    Selection.ClearContents
    Range("D953").Select
    Selection.ClearContents
    Range("D955").Select
    Selection.ClearContents
    Range("D957").Select
    Selection.ClearContents
    Range("D959").Select
    Selection.ClearContents
    Range("D961").Select
    Selection.ClearContents
    Range("D963").Select
    Selection.ClearContents
    Range("D965").Select
    Selection.ClearContents
    Range("D967").Select
    Selection.ClearContents
    Range("D969").Select
    Selection.ClearContents
    Range("D971").Select
    Selection.ClearContents
    Range("D973").Select
    Selection.ClearContents
    Range("D975").Select
    Selection.ClearContents
    Range("D977").Select
    Selection.ClearContents
    Range("D979").Select
    Selection.ClearContents
    Range("D981").Select
    Selection.ClearContents
    Range("D983").Select
    Selection.ClearContents
    Range("D985").Select
    Selection.ClearContents
    Range("D987").Select
    Selection.ClearContents
    Range("D989").Select
    Selection.ClearContents
    Range("D991").Select
    Selection.ClearContents
    Range("D993").Select
    Selection.ClearContents
    Range("D995").Select
    Selection.ClearContents
    Range("D997").Select
    Selection.ClearContents
    Range("D1005").Select
    Selection.ClearContents
    Range("D1007").Select
    Selection.ClearContents
    Range("D1009").Select
    Selection.ClearContents
    Range("D1011").Select
    Selection.ClearContents
    Range("D1013").Select
    Selection.ClearContents
    Range("D1015").Select
    Selection.ClearContents
    Range("D1017").Select
    Selection.ClearContents
    Range("D1019").Select
    Selection.ClearContents
    Range("D1021").Select
    Selection.ClearContents
    Range("D1023").Select
    Selection.ClearContents
    Range("D1025").Select
    Selection.ClearContents
    Range("D1027").Select
    Selection.ClearContents
    Range("D1029").Select
    Selection.ClearContents
    Range("D1031").Select
    Selection.ClearContents
    Range("D1033").Select
    Selection.ClearContents
    Range("D1035").Select
    Selection.ClearContents
    Range("D1037").Select
    Selection.ClearContents
    Range("D1039").Select
    Selection.ClearContents
    Range("D1041").Select
    Selection.ClearContents
    Range("D1043").Select
    Selection.ClearContents
    Range("D1045").Select
    Selection.ClearContents
    Range("D1047").Select
    Selection.ClearContents
    Range("D1049").Select
    Selection.ClearContents
    Range("D1051").Select
    Selection.ClearContents
    Range("D1053").Select
    Selection.ClearContents
    Range("D1055").Select
    Selection.ClearContents
    Range("D1057").Select
    Selection.ClearContents
    Range("D1059").Select
    Selection.ClearContents
    Range("D1061").Select
    Selection.ClearContents
    Range("D1063").Select
    Selection.ClearContents
    Range("D1065").Select
    Selection.ClearContents
    Range("D1067").Select
    Selection.ClearContents
    Range("D1069").Select
    Selection.ClearContents
    Range("D1071").Select
    Selection.ClearContents
    Range("D1077").Select
    Selection.ClearContents
    Range("D1079").Select
    Selection.ClearContents
    Range("D1081").Select
    Selection.ClearContents
    Range("D1083").Select
    Selection.ClearContents
    Range("D1085").Select
    Selection.ClearContents
    Range("D1087").Select
    Selection.ClearContents
    Range("D1089").Select
    Selection.ClearContents
    Range("D1091").Select
    Selection.ClearContents
    Range("D1093").Select
    Selection.ClearContents
    Range("D1095").Select
    Selection.ClearContents
    Range("D1097").Select
    Selection.ClearContents
    Range("D1099").Select
    Selection.ClearContents
    Range("D1101").Select
    Selection.ClearContents
    Range("D1103").Select
    Selection.ClearContents
    Range("D1105").Select
    Selection.ClearContents
    Range("D1107").Select
    Selection.ClearContents
    Range("D1109").Select
    Selection.ClearContents
    Range("D1111").Select
    Selection.ClearContents
    Range("D1113").Select
    Selection.ClearContents
    Range("D1115").Select
    Selection.ClearContents
    Range("D1117").Select
    Selection.ClearContents
    Range("D1119").Select
    Selection.ClearContents
    Range("D1121").Select
    Selection.ClearContents
    Range("D1123").Select
    Selection.ClearContents
    Range("D1125").Select
    Selection.ClearContents
    Range("D1127").Select
    Selection.ClearContents
    Range("D1129").Select
    Selection.ClearContents
    Range("D1131").Select
    Selection.ClearContents
    Range("D1133").Select
    Selection.ClearContents
    Range("D1135").Select
    Selection.ClearContents
    Range("D1148").Select
    ActiveWindow.ScrollRow = 1100
    ActiveWindow.ScrollRow = 1097
    ActiveWindow.ScrollRow = 1094
    ActiveWindow.ScrollRow = 1084
    ActiveWindow.ScrollRow = 1068
    ActiveWindow.ScrollRow = 1051
    ActiveWindow.ScrollRow = 1032
    ActiveWindow.ScrollRow = 1015
    ActiveWindow.ScrollRow = 798
    ActiveWindow.ScrollRow = 761
    ActiveWindow.ScrollRow = 646
    ActiveWindow.ScrollRow = 517
    ActiveWindow.ScrollRow = 500
    ActiveWindow.ScrollRow = 493
    ActiveWindow.ScrollRow = 488
    ActiveWindow.ScrollRow = 484
    ActiveWindow.ScrollRow = 482
    ActiveWindow.ScrollRow = 477
    ActiveWindow.ScrollRow = 469
    ActiveWindow.ScrollRow = 461
    ActiveWindow.ScrollRow = 454
    ActiveWindow.ScrollRow = 445
    ActiveWindow.ScrollRow = 438
    ActiveWindow.ScrollRow = 426
    ActiveWindow.ScrollRow = 415
    ActiveWindow.ScrollRow = 285
    ActiveWindow.ScrollRow = 244
    ActiveWindow.ScrollRow = 198
    ActiveWindow.ScrollRow = 67
    ActiveWindow.ScrollRow = 24
    ActiveWindow.ScrollRow = 11
    ActiveWindow.ScrollRow = 1
    Range("C8").Select
    Selection.ClearContents
    Range("C10").Select
    Selection.ClearContents
    Range("C12").Select
    Selection.ClearContents
    Range("C14").Select
    Selection.ClearContents
    Range("C16").Select
    Selection.ClearContents
    Range("C18").Select
    Selection.ClearContents
    Range("C20").Select
    Selection.ClearContents
    Range("C22").Select
    Selection.ClearContents
    Range("C24").Select
    Selection.ClearContents
    Range("C26").Select
    Selection.ClearContents
    Range("C28").Select
    Selection.ClearContents
    Range("C30").Select
    Selection.ClearContents
    Range("C32").Select
    Selection.ClearContents
    Range("C34").Select
    Selection.ClearContents
    Range("C36").Select
    Selection.ClearContents
    Range("C38").Select
    Selection.ClearContents
    Range("C40").Select
    Selection.ClearContents
    Range("C42").Select
    Selection.ClearContents
    Range("C44").Select
    Selection.ClearContents
    Range("C46").Select
    Selection.ClearContents
    Range("C48").Select
    Selection.ClearContents
    Range("C50").Select
    Selection.ClearContents
    Range("C52").Select
    Selection.ClearContents
    Range("C54").Select
    Selection.ClearContents
    Range("C56").Select
    Selection.ClearContents
    Range("C58").Select
    Selection.ClearContents
    Range("C60").Select
    Selection.ClearContents
    Range("C62").Select
    Selection.ClearContents
    Range("C64").Select
    Selection.ClearContents
    Range("C66").Select
    Selection.ClearContents
    Range("C68").Select
    Selection.ClearContents
    Range("C70").Select
    Selection.ClearContents
    Range("C72").Select
    Selection.ClearContents
    Range("C74").Select
    Selection.ClearContents
    Range("C76").Select
    Selection.ClearContents
    Range("C78").Select
    Selection.ClearContents
    Range("C80").Select
    Selection.ClearContents
    Range("C82").Select
    Selection.ClearContents
    Range("C84").Select
    Selection.ClearContents
    Range("C86").Select
    Selection.ClearContents
    Range("C88").Select
    Selection.ClearContents
    Range("C96").Select
    Selection.ClearContents
    Range("C98").Select
    Selection.ClearContents
    Range("C100").Select
    Selection.ClearContents
    Range("C102").Select
    Selection.ClearContents
    Range("C104").Select
    Selection.ClearContents
    Range("C106").Select
    Selection.ClearContents
    Range("C108").Select
    Selection.ClearContents
    Range("C110").Select
    Selection.ClearContents
    Range("C112").Select
    Selection.ClearContents
    Range("C114").Select
    Selection.ClearContents
    Range("C116").Select
    Selection.ClearContents
    Range("C118").Select
    Selection.ClearContents
    Range("C120").Select
    Selection.ClearContents
    Range("C122").Select
    Selection.ClearContents
    Range("C124").Select
    Selection.ClearContents
    Range("C126").Select
    Selection.ClearContents
    Range("C128").Select
    Selection.ClearContents
    Range("C130").Select
    Selection.ClearContents
    Range("C132").Select
    Selection.ClearContents
    Range("C134").Select
    Selection.ClearContents
    Range("C136").Select
    Selection.ClearContents
    Range("C138").Select
    Selection.ClearContents
    Range("C140").Select
    Selection.ClearContents
    Range("C142").Select
    Selection.ClearContents
    Range("C144").Select
    Selection.ClearContents
    Range("C146").Select
    Selection.ClearContents
    Range("C148").Select
    Selection.ClearContents
    Range("C150").Select
    Selection.ClearContents
    Range("C152").Select
    Selection.ClearContents
    Range("C154").Select
    Selection.ClearContents
    Range("C156").Select
    Selection.ClearContents
    Range("C158").Select
    Selection.ClearContents
    Range("C160").Select
    Selection.ClearContents
    Range("C162").Select
    Selection.ClearContents
    Range("C164").Select
    Selection.ClearContents
    Range("C166").Select
    Selection.ClearContents
    Range("C168").Select
    Selection.ClearContents
    Range("C170").Select
    Selection.ClearContents
    Range("C172").Select
    Selection.ClearContents
    Range("C174").Select
    Selection.ClearContents
    Range("C176").Select
    Selection.ClearContents
    Range("C183").Select
    Selection.ClearContents
    Range("C185").Select
    Selection.ClearContents
    Range("C187").Select
    Selection.ClearContents
    Range("C189").Select
    Selection.ClearContents
    Range("C191").Select
    Selection.ClearContents
    Range("C193").Select
    Range("C184").Select
    Selection.ClearContents
    Range("C186").Select
    Selection.ClearContents
    Range("C188").Select
    Selection.ClearContents
    Range("C190").Select
    Selection.ClearContents
    Range("C192").Select
    Selection.ClearContents
    Range("C194").Select
    Selection.ClearContents
    Range("C196").Select
    Selection.ClearContents
    Range("C198").Select
    Selection.ClearContents
    Range("C200").Select
    Selection.ClearContents
    Range("C202").Select
    Selection.ClearContents
    Range("C204").Select
    Selection.ClearContents
    Range("C206").Select
    Selection.ClearContents
    Range("C208").Select
    Selection.ClearContents
    Range("C210").Select
    Selection.ClearContents
    Range("C212").Select
    Selection.ClearContents
    Range("C214").Select
    Selection.ClearContents
    Range("C216").Select
    Selection.ClearContents
    Range("C218").Select
    Selection.ClearContents
    Range("C220").Select
    Selection.ClearContents
    Range("C222").Select
    Selection.ClearContents
    Range("C224").Select
    Selection.ClearContents
    Range("C226").Select
    Selection.ClearContents
    Range("C228").Select
    Selection.ClearContents
    Range("C230").Select
    Selection.ClearContents
    Range("C232").Select
    Selection.ClearContents
    Range("C234").Select
    Selection.ClearContents
    Range("C236").Select
    Selection.ClearContents
    Range("C238").Select
    Selection.ClearContents
    Range("C240").Select
    Selection.ClearContents
    Range("C242").Select
    Selection.ClearContents
    Range("C244").Select
    Selection.ClearContents
    Range("C246").Select
    Selection.ClearContents
    Range("C248").Select
    Selection.ClearContents
    Range("C250").Select
    Selection.ClearContents
    Range("C252").Select
    Selection.ClearContents
    Range("C254").Select
    Selection.ClearContents
    Range("C256").Select
    Selection.ClearContents
    Range("C258").Select
    Selection.ClearContents
    Range("C260").Select
    Selection.ClearContents
    Range("C262").Select
    Selection.ClearContents
    Range("C264").Select
    Selection.ClearContents
    Range("C266").Select
    Selection.ClearContents
    Range("C272").Select
    Selection.ClearContents
    Range("C274").Select
    Selection.ClearContents
    Range("C276").Select
    Selection.ClearContents
    Range("C278").Select
    Selection.ClearContents
    Range("C280").Select
    Selection.ClearContents
    Range("C282").Select
    Selection.ClearContents
    Range("C284").Select
    Selection.ClearContents
    Range("C286").Select
    Selection.ClearContents
    Range("C288").Select
    Selection.ClearContents
    Range("C290").Select
    Selection.ClearContents
    Range("C292").Select
    Selection.ClearContents
    Range("C294").Select
    Selection.ClearContents
    Range("C296").Select
    Selection.ClearContents
    Range("C298").Select
    Selection.ClearContents
    Range("C300").Select
    Selection.ClearContents
    Range("C302").Select
    Selection.ClearContents
    Range("C304").Select
    Selection.ClearContents
    Range("C306").Select
    Selection.ClearContents
    Range("C308").Select
    Selection.ClearContents
    Range("C310").Select
    Selection.ClearContents
    Range("C312").Select
    Selection.ClearContents
    Range("C314").Select
    Selection.ClearContents
    Range("C316").Select
    Selection.ClearContents
    Range("C318").Select
    Selection.ClearContents
    Range("C320").Select
    Selection.ClearContents
    Range("C322").Select
    Selection.ClearContents
    Range("C324").Select
    Selection.ClearContents
    Range("C326").Select
    Selection.ClearContents
    Range("C328").Select
    Selection.ClearContents
    Range("C330").Select
    Selection.ClearContents
    Range("C332").Select
    Selection.ClearContents
    Range("C334").Select
    Selection.ClearContents
    Range("C336").Select
    Selection.ClearContents
    Range("C338").Select
    Selection.ClearContents
    Range("C340").Select
    Selection.ClearContents
    Range("C342").Select
    Selection.ClearContents
    Range("C344").Select
    Selection.ClearContents
    Range("C346").Select
    Selection.ClearContents
    Range("C354").Select
    Selection.ClearContents
    Range("C356").Select
    Selection.ClearContents
    Range("C358").Select
    Selection.ClearContents
    Range("C360").Select
    Selection.ClearContents
    Range("C362").Select
    Selection.ClearContents
    Range("C364").Select
    Selection.ClearContents
    Range("C366").Select
    Selection.ClearContents
    Range("C368").Select
    Selection.ClearContents
    Range("C370").Select
    Selection.ClearContents
    Range("C372").Select
    Selection.ClearContents
    Range("C374").Select
    Selection.ClearContents
    Range("C376").Select
    Selection.ClearContents
    Range("C378").Select
    Selection.ClearContents
    Range("C380").Select
    Selection.ClearContents
    Range("C382").Select
    Selection.ClearContents
    Range("C384").Select
    Selection.ClearContents
    Range("C386").Select
    Selection.ClearContents
    Range("C388").Select
    Selection.ClearContents
    Range("C390").Select
    Selection.ClearContents
    Range("C392").Select
    Selection.ClearContents
    Range("C394").Select
    Selection.ClearContents
    Range("C396").Select
    Selection.ClearContents
    Range("C398").Select
    Selection.ClearContents
    Range("C400").Select
    Selection.ClearContents
    Range("C402").Select
    Selection.ClearContents
    Range("C404").Select
    Selection.ClearContents
    Range("C406").Select
    Selection.ClearContents
    Range("C408").Select
    Selection.ClearContents
    Range("C410").Select
    Selection.ClearContents
    Range("C412").Select
    Selection.ClearContents
    Range("C414").Select
    Selection.ClearContents
    Range("C416").Select
    Selection.ClearContents
    Range("C418").Select
    Selection.ClearContents
    Range("C420").Select
    Selection.ClearContents
    Range("C422").Select
    Selection.ClearContents
    Range("C424").Select
    Selection.ClearContents
    Range("C426").Select
    Selection.ClearContents
    Range("C428").Select
    Selection.ClearContents
    Range("C430").Select
    Selection.ClearContents
    Range("C432").Select
    Selection.ClearContents
    Range("C434").Select
    Selection.ClearContents
    Range("C442").Select
    Selection.ClearContents
    Range("C444").Select
    Selection.ClearContents
    Range("C446").Select
    Selection.ClearContents
    Range("C448").Select
    Selection.ClearContents
    Range("C450").Select
    Selection.ClearContents
    Range("C452").Select
    Selection.ClearContents
    Range("C454").Select
    Selection.ClearContents
    Range("C456").Select
    Selection.ClearContents
    Range("C458").Select
    Selection.ClearContents
    Range("C460").Select
    Selection.ClearContents
    Range("C462").Select
    Selection.ClearContents
    Range("C464").Select
    Selection.ClearContents
    Range("C466").Select
    Selection.ClearContents
    Range("C468").Select
    Selection.ClearContents
    Range("C470").Select
    Selection.ClearContents
    Range("C472").Select
    Selection.ClearContents
    Range("C474").Select
    Selection.ClearContents
    Range("C476").Select
    Selection.ClearContents
    Range("C478").Select
    Selection.ClearContents
    Range("C480").Select
    Selection.ClearContents
    Range("C482").Select
    Selection.ClearContents
    Range("C484").Select
    Selection.ClearContents
    Range("C486").Select
    Selection.ClearContents
    Range("C488").Select
    Selection.ClearContents
    Range("C490").Select
    Selection.ClearContents
    Range("C492").Select
    Selection.ClearContents
    Range("C494").Select
    Selection.ClearContents
    Range("C496").Select
    Selection.ClearContents
    Range("C498").Select
    Selection.ClearContents
    Range("C500").Select
    Selection.ClearContents
    Range("C502").Select
    Selection.ClearContents
    Range("C504").Select
    Selection.ClearContents
    Range("C506").Select
    Selection.ClearContents
    Range("C508").Select
    Selection.ClearContents
    Range("C510").Select
    Selection.ClearContents
    Range("C512").Select
    Selection.ClearContents
    Range("C514").Select
    Selection.ClearContents
    Range("C516").Select
    Selection.ClearContents
    Range("C518").Select
    Selection.ClearContents
    Range("C520").Select
    Selection.ClearContents
    Range("C522").Select
    Selection.ClearContents
    Range("C530").Select
    Selection.ClearContents
    Range("C532").Select
    Selection.ClearContents
    Range("C534").Select
    Selection.ClearContents
    Range("C536").Select
    Selection.ClearContents
    Range("C538").Select
    Selection.ClearContents
    Range("C540").Select
    Selection.ClearContents
    Range("C542").Select
    Selection.ClearContents
    Range("C544").Select
    Selection.ClearContents
    Range("C546").Select
    Selection.ClearContents
    Range("C548").Select
    Selection.ClearContents
    Range("C550").Select
    Selection.ClearContents
    Range("C552").Select
    Selection.ClearContents
    Range("C554").Select
    Selection.ClearContents
    Range("C556").Select
    Selection.ClearContents
    Range("C558").Select
    Selection.ClearContents
    Range("C560").Select
    Selection.ClearContents
    Range("C562").Select
    Selection.ClearContents
    Range("C564").Select
    Selection.ClearContents
    Range("C566").Select
    Selection.ClearContents
    Range("C568").Select
    Selection.ClearContents
    Range("C570").Select
    Selection.ClearContents
    Range("C572").Select
    Selection.ClearContents
    Range("C574").Select
    Selection.ClearContents
    Range("C576").Select
    Selection.ClearContents
    Range("C578").Select
    Selection.ClearContents
    Range("C580").Select
    Selection.ClearContents
    Range("C582").Select
    Selection.ClearContents
    Range("C584").Select
    Selection.ClearContents
    Range("C586").Select
    Selection.ClearContents
    Range("C588").Select
    Selection.ClearContents
    Range("C590").Select
    Selection.ClearContents
    Range("C592").Select
    Selection.ClearContents
    Range("C594").Select
    Selection.ClearContents
    Range("C596").Select
    Selection.ClearContents
    Range("C598").Select
    Selection.ClearContents
    Range("C600").Select
    Selection.ClearContents
    Range("C602").Select
    Selection.ClearContents
    Range("C604").Select
    Selection.ClearContents
    Range("C606").Select
    Selection.ClearContents
    Range("C608").Select
    Selection.ClearContents
    Range("C610").Select
    Selection.ClearContents
    Range("C618").Select
    Selection.ClearContents
    Range("C620").Select
    Selection.ClearContents
    Range("C622").Select
    Selection.ClearContents
    Range("C624").Select
    Selection.ClearContents
    Range("C626").Select
    Selection.ClearContents
    Range("C628").Select
    Selection.ClearContents
    Range("C630").Select
    Selection.ClearContents
    Range("C632").Select
    Selection.ClearContents
    Range("C634").Select
    Selection.ClearContents
    Range("C636").Select
    Selection.ClearContents
    Range("C638").Select
    Selection.ClearContents
    Range("C640").Select
    Selection.ClearContents
    Range("C642").Select
    Selection.ClearContents
    Range("C644").Select
    Selection.ClearContents
    Range("C646").Select
    Selection.ClearContents
    Range("C648").Select
    Selection.ClearContents
    Range("C650").Select
    Selection.ClearContents
    Range("C652").Select
    Selection.ClearContents
    Range("C654").Select
    Selection.ClearContents
    Range("C656").Select
    Selection.ClearContents
    Range("C658").Select
    Selection.ClearContents
    Range("C660").Select
    Selection.ClearContents
    Range("C662").Select
    Selection.ClearContents
    Range("C664").Select
    Selection.ClearContents
    Range("C666").Select
    Selection.ClearContents
    Range("C668").Select
    Selection.ClearContents
    Range("C670").Select
    Selection.ClearContents
    Range("C672").Select
    Selection.ClearContents
    Range("C674").Select
    Selection.ClearContents
    Range("C675").Select
    Range("C676").Select
    Selection.ClearContents
    Range("C678").Select
    Selection.ClearContents
    Range("C680").Select
    Selection.ClearContents
    Range("C682").Select
    Selection.ClearContents
    Range("C684").Select
    Selection.ClearContents
    Range("C686").Select
    Selection.ClearContents
    Range("C688").Select
    Selection.ClearContents
    Range("C690").Select
    Selection.ClearContents
    Range("C692").Select
    Selection.ClearContents
    Range("C702").Select
    Selection.ClearContents
    Range("C704").Select
    Selection.ClearContents
    Range("C706").Select
    Selection.ClearContents
    Range("C708").Select
    Selection.ClearContents
    Range("C710").Select
    Selection.ClearContents
    Range("C712").Select
    Selection.ClearContents
    Range("C714").Select
    Selection.ClearContents
    Range("C716").Select
    Selection.ClearContents
    Range("C718").Select
    Selection.ClearContents
    Range("C720").Select
    Selection.ClearContents
    Range("C722").Select
    Selection.ClearContents
    Range("C724").Select
    Selection.ClearContents
    Range("C726").Select
    Selection.ClearContents
    Range("C728").Select
    Selection.ClearContents
    Range("C730").Select
    Selection.ClearContents
    Range("C732").Select
    Selection.ClearContents
    Range("C734").Select
    Selection.ClearContents
    Range("C736").Select
    Selection.ClearContents
    Range("C738").Select
    Selection.ClearContents
    Range("C740").Select
    Selection.ClearContents
    Range("C742").Select
    Selection.ClearContents
    Range("C744").Select
    Selection.ClearContents
    Range("C746").Select
    Selection.ClearContents
    Range("C748").Select
    Selection.ClearContents
    Range("C750").Select
    Selection.ClearContents
    Range("C752").Select
    Selection.ClearContents
    Range("C754").Select
    Selection.ClearContents
    Range("C756").Select
    Selection.ClearContents
    Range("C758").Select
    Selection.ClearContents
    Selection.ClearContents
    Range("C760").Select
    Selection.ClearContents
    Range("C762").Select
    Selection.ClearContents
    Range("C764").Select
    Selection.ClearContents
    Range("C766").Select
    Selection.ClearContents
    Range("C768").Select
    Selection.ClearContents
    Range("C770").Select
    Selection.ClearContents
    Range("C778").Select
    Selection.ClearContents
    Range("C780").Select
    Selection.ClearContents
    Range("C782").Select
    Selection.ClearContents
    Range("C784").Select
    Selection.ClearContents
    Range("C786").Select
    Selection.ClearContents
    Range("C788").Select
    Selection.ClearContents
    Range("C790").Select
    Selection.ClearContents
    Range("C792").Select
    Selection.ClearContents
    Range("C794").Select
    Selection.ClearContents
    Range("C796").Select
    Selection.ClearContents
    Range("C798").Select
    Selection.ClearContents
    Range("C800").Select
    Selection.ClearContents
    Range("C802").Select
    Selection.ClearContents
    Range("C804").Select
    Selection.ClearContents
    Range("C806").Select
    Selection.ClearContents
    Range("C808").Select
    Selection.ClearContents
    Range("C810").Select
    Selection.ClearContents
    Range("C812").Select
    Selection.ClearContents
    Range("C814").Select
    Selection.ClearContents
    Range("C816").Select
    Selection.ClearContents
    Range("C818").Select
    Selection.ClearContents
    Range("C820").Select
    Selection.ClearContents
    Range("C822").Select
    Selection.ClearContents
    Range("C824").Select
    Selection.ClearContents
    Range("C826").Select
    Selection.ClearContents
    Range("C828").Select
    Selection.ClearContents
    Range("C830").Select
    Selection.ClearContents
    Range("C832").Select
    Selection.ClearContents
    Range("C834").Select
    Selection.ClearContents
    Range("C836").Select
    Selection.ClearContents
    Range("C838").Select
    Selection.ClearContents
    Range("C840").Select
    Selection.ClearContents
    Range("C842").Select
    Selection.ClearContents
    Range("C844").Select
    Selection.ClearContents
    Range("C846").Select
    Selection.ClearContents
    Range("C854").Select
    Selection.ClearContents
    Range("C856").Select
    Selection.ClearContents
    Range("C858").Select
    Selection.ClearContents
    Range("C860").Select
    Selection.ClearContents
    Range("C862").Select
    Selection.ClearContents
    Range("C864").Select
    Selection.ClearContents
    Range("C866").Select
    Selection.ClearContents
    Range("C868").Select
    Selection.ClearContents
    Range("C870").Select
    Selection.ClearContents
    Range("C872").Select
    Selection.ClearContents
    Range("C874").Select
    Selection.ClearContents
    Range("C876").Select
    Selection.ClearContents
    Range("C878").Select
    Selection.ClearContents
    Range("C880").Select
    Selection.ClearContents
    Range("C882").Select
    Selection.ClearContents
    Range("C884").Select
    Selection.ClearContents
    Range("C886").Select
    Selection.ClearContents
    Range("C888").Select
    Selection.ClearContents
    Range("C890").Select
    Selection.ClearContents
    Range("C892").Select
    Selection.ClearContents
    Range("C894").Select
    Selection.ClearContents
    Range("C896").Select
    Selection.ClearContents
    Range("C898").Select
    Selection.ClearContents
    Range("C900").Select
    Selection.ClearContents
    Range("C902").Select
    Selection.ClearContents
    Range("C904").Select
    Selection.ClearContents
    Range("C906").Select
    Selection.ClearContents
    Range("C908").Select
    Selection.ClearContents
    Range("C910").Select
    Selection.ClearContents
    Range("C912").Select
    Selection.ClearContents
    Range("C914").Select
    Selection.ClearContents
    Range("C916").Select
    Selection.ClearContents
    Range("C918").Select
    Selection.ClearContents
    Range("C920").Select
    Selection.ClearContents
    Range("C922").Select
    Selection.ClearContents
    Range("C930").Select
    Selection.ClearContents
    Range("C932").Select
    Selection.ClearContents
    Range("C934").Select
    Selection.ClearContents
    Range("C936").Select
    Selection.ClearContents
    Range("C938").Select
    Selection.ClearContents
    Range("C940").Select
    Selection.ClearContents
    Range("C942").Select
    Selection.ClearContents
    Range("C944").Select
    Selection.ClearContents
    Range("C946").Select
    Selection.ClearContents
    Range("C948").Select
    Selection.ClearContents
    Range("C950").Select
    Selection.ClearContents
    Range("C952").Select
    Selection.ClearContents
    Range("C954").Select
    Selection.ClearContents
    Range("C956").Select
    Selection.ClearContents
    Range("C958").Select
    Selection.ClearContents
    Range("C960").Select
    Selection.ClearContents
    Range("C962").Select
    Selection.ClearContents
    Range("C964").Select
    Selection.ClearContents
    Range("C966").Select
    Selection.ClearContents
    Range("C968").Select
    Selection.ClearContents
    Range("C970").Select
    Selection.ClearContents
    Range("C972").Select
    Selection.ClearContents
    Range("C974").Select
    Selection.ClearContents
    Range("C976").Select
    Selection.ClearContents
    Range("C978").Select
    Selection.ClearContents
    Range("C980").Select
    Selection.ClearContents
    Range("C982").Select
    Selection.ClearContents
    Range("C984").Select
    Selection.ClearContents
    Range("C986").Select
    Selection.ClearContents
    Range("C988").Select
    Selection.ClearContents
    Range("C990").Select
    Selection.ClearContents
    Range("C992").Select
    Selection.ClearContents
    Range("C994").Select
    Selection.ClearContents
    Range("C996").Select
    Selection.ClearContents
    Range("C998").Select
    Selection.ClearContents
    Range("C1006").Select
    Selection.ClearContents
    Range("C1008").Select
    Selection.ClearContents
    Range("C1010").Select
    Selection.ClearContents
    Range("C1012").Select
    Selection.ClearContents
    Range("C1014").Select
    Selection.ClearContents
    Range("C1016").Select
    Selection.ClearContents
    Range("C1018").Select
    Selection.ClearContents
    Range("C1020").Select
    Selection.ClearContents
    Range("C1022").Select
    Selection.ClearContents
    Range("C1024").Select
    Selection.ClearContents
    Range("C1026").Select
    Selection.ClearContents
    Range("C1028").Select
    Selection.ClearContents
    Range("C1030").Select
    Selection.ClearContents
    Range("C1032").Select
    Selection.ClearContents
    Range("C1034").Select
    Selection.ClearContents
    Range("C1036").Select
    Selection.ClearContents
    Range("C1038").Select
    Selection.ClearContents
    Range("C1040").Select
    Selection.ClearContents
    Range("C1042").Select
    Selection.ClearContents
    Range("C1044").Select
    Selection.ClearContents
    Range("C1046").Select
    Selection.ClearContents
    Range("C1048").Select
    Selection.ClearContents
    Range("C1050").Select
    Selection.ClearContents
    Range("C1052").Select
    Selection.ClearContents
    Range("C1054").Select
    Selection.ClearContents
    Range("C1056").Select
    Selection.ClearContents
    Range("C1058").Select
    Selection.ClearContents
    Range("C1060").Select
    Selection.ClearContents
    Range("C1062").Select
    Selection.ClearContents
    Range("C1064").Select
    Selection.ClearContents
    Range("C1066").Select
    Selection.ClearContents
    Range("C1068").Select
    Selection.ClearContents
    Range("C1070").Select
    Selection.ClearContents
    Range("C1078").Select
    Selection.ClearContents
    Range("C1080").Select
    Selection.ClearContents
    Range("C1082").Select
    Selection.ClearContents
    Range("C1084").Select
    Selection.ClearContents
    Range("C1086").Select
    Selection.ClearContents
    Range("C1088").Select
    Selection.ClearContents
    Range("C1090").Select
    Selection.ClearContents
    Range("C1092").Select
    Selection.ClearContents
    Range("C1093").Select
    Range("C1094").Select
    Selection.ClearContents
    Range("C1096").Select
    Selection.ClearContents
    Range("C1098").Select
    Selection.ClearContents
    Range("C1100").Select
    Selection.ClearContents
    Range("C1102").Select
    Selection.ClearContents
    Range("C1104").Select
    Selection.ClearContents
    Range("C1106").Select
    Selection.ClearContents
    Range("C1108").Select
    Selection.ClearContents
    Range("C1110").Select
    Selection.ClearContents
    Range("C1112").Select
    Selection.ClearContents
    Range("C1114").Select
    Selection.ClearContents
    Range("C1116").Select
    Selection.ClearContents
    Range("C1118").Select
    Selection.ClearContents
    Range("C1120").Select
    Selection.ClearContents
    Range("C1122").Select
    Selection.ClearContents
    Range("C1124").Select
    Selection.ClearContents
    Range("C1126").Select
    Selection.ClearContents
    Range("C1128").Select
    Selection.ClearContents
    Range("C1130").Select
    Selection.ClearContents
    Range("C1132").Select
    Selection.ClearContents
    Range("C1134").Select
    Selection.ClearContents
    Range("C1148").Select
End Sub

As you can see, I have two columns I need to do this to but when I run the macro it says the procedure is too long. How would something like this be shortened?
 
Last edited by a moderator:

Excel Facts

How to show all formulas in Excel?
Press Ctrl+` to show all formulas. Press it again to toggle back to numbers. The grave accent is often under the tilde on US keyboards.
Sort by date Sort by votes
When porting code code (especially that amount) please use code tags How to Post Your VBA Code

How about
VBA Code: 
Sub JustinM()
   With Range("D9:D1148")
      .Value = Evaluate("if(isodd(row(" & .Address & ")),""""," & .Address & ")")
   End With
   With Range("C8:C1148")
      .Value = Evaluate("if(iseven(row(" & .Address & ")),""""," & .Address & ")")
   End With
End Sub
 
Upvote 0
Solution
Since the range is fixed, you can write the macro this way...
VBA Code: 
Sub JustinM_2()
  [C8:C1134] = Evaluate("if(iseven(row(C8:C1134)),"""",C8:C1134)")
  [C8:C1134].SpecialCells(xlBlanks).Offset(1, 1) = ""
End Sub
Note to Fluff: The last cell is not 1148... it is 1134 for Column C and 1135 for Column D.
 
Upvote 0
You must log in or register to reply here.

Forum statistics

Threads
1,223,711
Messages
6,174,025
Members
452,542
Latest member
Bricklin

Share this page

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top