Inserting number of rows based on a count of data

Sub Insert_Columns()
    Dim num As String
    num = InputBox("How many columns do you want to insert?")
    If num <> "" Then
        If num > 0 Then ActiveCell.Offset(0, 1).Resize(1, num).EntireColumn.Insert
    End If

End Sub

Hi patel,

That's a great code and will be useful. But for the current file, I'm looking for it to count the number of cells with data and insert twice the number of columns. I'm looking to have as few manual inputs as possible.

Thanks.