<div>
I have used this code on the third sheet with a button 
It will prompt you for a start date which can be earlier than the 2-Feb-09 value (ie to insert your 1-Feb-09 value) 
Cheers 
Dave 
 

<pre><code class="code-10 nolinks" id="code-277323">Option Explicit
 
Sub InsertEm()
 Dim rng1 As Range, FirstDate As Date, i As Long
 Set rng1 = Range([a7], Cells(Rows.Count, &quot;A&quot;).End(xlUp))
 Application.ScreenUpdating = False
 FirstDate = Application.InputBox(&quot;Pls enter start date&quot;, Default:=Format([a7].Value, &quot;dd-mmm-yyyy&quot;), Type:=1)
 
 For i = rng1.Rows.Count To 2 Step -1
 If Day(rng1.Cells(i).Value) - Day(rng1.Cells(i).Offset(-1, 0).Value) &gt; 1 Then
 With rng1.Cells(i).Offset(-1, 0)
 .EntireRow.Offset(1, 0).Insert
 .Offset(1, 0).NumberFormat = &quot;dd/mm/yyyy&quot;
 .Offset(1, 0).EntireRow.Font.Bold = True
 .Offset(1, 0).Value = rng1.Cells(i + 1).Value - 1
 If Weekday(.Offset(1, 0).Value) = 7 Or Weekday(.Offset(1, 0).Value) = 6 Then
 .Offset(1, 0).Offset(0, 2) = &quot;NO WORKING DAY&quot;
 Else
 .Offset(1, 0).Offset(0, 2) = &quot;NO SALE&quot;
 End If
 i = i + 1
 End With
 End If
 Next
 i = 0
 If FirstDate &lt; Format([a7].Value, &quot;dd-mmm-yyyy&quot;) Then
 
 For i = Day([a7].Value) - Day(FirstDate) To 1 Step -1
 Range(&quot;a7&quot;).Rows.EntireRow.Insert
 Range(&quot;A7&quot;).Offset(i - 1, 0).Value = Range(&quot;A7&quot;).Offset(i, 0).Value - 1
 If Weekday(Range(&quot;A7&quot;).Offset(i - 1, 0).Value) = 7 Or Weekday(Range(&quot;A7&quot;).Offset(i - 1, 0).Value) = 6 Then
 Range(&quot;A7&quot;).Offset(i - 1, 0).Offset(0, 2) = &quot;NO WORKING DAY&quot;
 Else
 Range(&quot;A7&quot;).Offset(i - 1, 0).Offset(0, 2) = &quot;NO SALE&quot;
 End If
 Next
 End If
 Application.ScreenUpdating = True
End Sub
</code></pre>
<a href="https://filedb.experts-exchange.com/incoming/2009/03_w12/118040/SAMPLE-1----djb.xls" target="_blank" class="file-inline" title="file (176 KB)"><svg xmlns="http://www.w3.org/2000/svg" viewBox="0 0 512 512"><path d="M67.508 468.467c-58.005-58.013-58.016-151.92 0-209.943l225.011-225.04c44.643-44.645 117.279-44.645 161.92 0 44.743 44.749 44.753 117.186 0 161.944l-189.465 189.49c-31.41 31.413-82.518 31.412-113.926.001-31.479-31.482-31.49-82.453 0-113.944L311.51 110.491c4.687-4.687 12.286-4.687 16.972 0l16.967 16.971c4.685 4.686 4.685 12.283 0 16.969L184.983 304.917c-12.724 12.724-12.73 33.328 0 46.058 12.696 12.697 33.356 12.699 46.054-.001l189.465-189.489c25.987-25.989 25.994-68.06.001-94.056-25.931-25.934-68.119-25.932-94.049 0l-225.01 225.039c-39.249 39.252-39.258 102.795-.001 142.057 39.285 39.29 102.885 39.287 142.162-.028A739446.174 739446.174 0 0 1 439.497 238.49c4.686-4.687 12.282-4.684 16.969.004l16.967 16.971c4.685 4.686 4.689 12.279.004 16.965a755654.128 755654.128 0 0 0-195.881 195.996c-58.034 58.092-152.004 58.093-210.048.041z"/></svg>SAMPLE-1----djb.xls</a>
</div>

SAMPLE-1----djb.xls

<div>
Hi Dave, 
 
The code inserts the rows perfectly. 
 
The problem is with the sentences &quot;NO WORKING DAY&quot; and &quot;NO SALE&quot;. 
 
In February 1 (which was Sunday) the code wrote &quot;NO SALE&quot;. instead of NO WORKING DAY. 
In February 6 (Friday) the code wrote &quot;NO WORKING DAY&quot; instead of NO SALE. 
saturday 7 is ok &quot;NO WORKING DAY&quot; 
Sunday 8 wrote &nbsp;&quot;NO SALE&quot; and then the next weekends, it does the same (looks like the code does not recognize Sunday as a NO working day). 
 
With the exception of friday 6 when the code wrote NO WORKING DAY it manages fine the regular weekdays with the NO SALE sentence. 
 
Thank you very much for your help. 
 
Regards, 
Roberto.
</div>

<div>
Thank you Dave, it works perfectly. 
I really appreciate your help. 
Regards, 
Roberto.
</div>

<div>
No probs, thx for the grade Roberto :)
</div>

<div>
Hi Dave, 
 
hope you read this.... 
 
I got a problem when running the code in the original spreadsheet....could you check it ? 
 
This is the new tread: 
<a href="https://www.experts-exchange.com/questions/24242499/Help-fixing-VB-Code-in-EXCEL-spreadsheet-is-not-running-when-using-formulas-instead-of-values.html" rel="ugc">https://www.experts-exchange.com/questions/24242499/Help-fixing-VB-Code-in-EXCEL-spreadsheet-is-not-running-when-using-formulas-instead-of-values.html</a> 
 
Regards, 
Roberto.
</div>

<div>
<div class="content wysiwyg-content">
Hi, 
 
Attached is a sample of the data that I´m working with....is a monthly store's sales resume. 
 
Columna A have the date of sale ...column B have the invoice number...the other columns have details of the sale....one day could have more than one sale or none at all. 
 
What I need is when I press a command button the code inserts a row when there is a day without sale, writing in column C: &quot;NO SALE&quot; &nbsp;... &nbsp;and when is saturday or sunday (Shop closed) the code have to insert a row for each non workable day and write in column C: &quot;NO WORKING DAY&quot;. 
 
In the document attached, in sheet &quot;hoja1&quot; is how I have the data actually and in sheet &quot;hoja2&quot; is how I need it (The final result after the code runs) 
 
I really appreciate your help with this. 
 
Thank you for your time. 
Roberto. 
<a href="https://filedb.experts-exchange.com/incoming/2009/03_w12/118030/SAMPLE.xls" target="_blank" class="file-inline" title="Excel File with data sample and result I need (104 KB)"><svg xmlns="http://www.w3.org/2000/svg" viewBox="0 0 512 512"><path d="M67.508 468.467c-58.005-58.013-58.016-151.92 0-209.943l225.011-225.04c44.643-44.645 117.279-44.645 161.92 0 44.743 44.749 44.753 117.186 0 161.944l-189.465 189.49c-31.41 31.413-82.518 31.412-113.926.001-31.479-31.482-31.49-82.453 0-113.944L311.51 110.491c4.687-4.687 12.286-4.687 16.972 0l16.967 16.971c4.685 4.686 4.685 12.283 0 16.969L184.983 304.917c-12.724 12.724-12.73 33.328 0 46.058 12.696 12.697 33.356 12.699 46.054-.001l189.465-189.489c25.987-25.989 25.994-68.06.001-94.056-25.931-25.934-68.119-25.932-94.049 0l-225.01 225.039c-39.249 39.252-39.258 102.795-.001 142.057 39.285 39.29 102.885 39.287 142.162-.028A739446.174 739446.174 0 0 1 439.497 238.49c4.686-4.687 12.282-4.684 16.969.004l16.967 16.971c4.685 4.686 4.689 12.279.004 16.965a755654.128 755654.128 0 0 0-195.881 195.996c-58.034 58.092-152.004 58.093-210.048.041z"/></svg>SAMPLE.xls</a>
</div>
</div>

Excel File with data sample and result I need

SAMPLE.xls

Hi,

Attached is a sample of the data that I´m working with....is a monthly store's sales resume.

Columna A have the date of sale ...column B have the invoice number...the other columns have details of the sale....one day could have more than one sale or none at all.

What I need is when I press a command button the code inserts a row when there is a day without sale, writing in column C: "NO SALE"  ...  and when is saturday or sunday (Shop closed) the code have to insert a row for each non workable day and write in column C: "NO WORKING DAY".

In the document attached, in sheet "hoja1" is how I have the data actually and in sheet "hoja2" is how I need it (The final result after the code runs)

I really appreciate your help with this.

Thank you for your time.
Roberto.

INSERT A ROW IN EXCEL SPREADSHEET DEPENDING ON CRITERIA

Programming includes both the specifics of the language you’re using, like Visual Basic, .NET, Java and others, but also the best practices in user experience and interfaces and the management of projects, version control and development. Other programming topics are related to web and cloud development and system and hardware programming.

Programming

Microsoft Excel topics include formulas, formatting, VBA macros and user-defined functions, and everything else related to the spreadsheet user interface, including error messages.

Microsoft Excel

Visual Basic is Microsoft’s event-driven programming language and integrated development environment (IDE) for its Component Object Model (COM) programming model. It is relatively easy to learn and use because of its graphical development features and BASIC heritage. It has been replaced with VB.NET, and is very similar to VBA (Visual Basic for Applications), the programming language for the Microsoft Office product line.