[ExcelVBA] Copying Data from a Range

 

Hi,
 
I'm trying to copy data within a particular range using the following code, but when I run it, no data is being copied:
 
Sub Copy_Daily()
    Dim SourceRange As Range, DestRange As Range
    Dim DestSheet As Worksheet, SourceSheet As Worksheet, LcD As Long, LcS As Long
    Dim LastColumn As Integer
           
    With Application
        .ScreenUpdating = False
        .EnableEvents = False
    End With
 
    Set SourceSheet = Sheets("Daily Comp Count")
   
    LcS = SourceSheet.UsedRange.Column - 1 + SourceSheet.UsedRange.Columns.Count
 
    Set SourceRange = Sheets("Daily Comp Count").Range("O" & LcS)
       
    Set DestSheet = Sheets("Daily Comp Count")
  
    LcD = DestSheet.UsedRange.Column + 1 + SourceSheet.UsedRange.Columns.Count
    
    Set DestRange = DestSheet.Range("P" & LcD)
 
 
    SourceRange.Copy
    DestRange.PasteSpecial xlPasteValues, , False, False
    Application.CutCopyMode = False
    With Application
        .ScreenUpdating = True
        .EnableEvents = True
    End With
   
End Sub
 
Basically what I'm trying to do is to:
 
 
Can anyone help with this.

[Non-text portions of this message have been removed]

__._,_.___

Reply to sender | Reply to group | Reply via web post | Start a New Topic

Messages in this topic (1)

Recent Activity:

• New Members 6

Visit Your Group

----------------------------------
Be sure to check out TechTrax Ezine for many, free Excel VBA articles! Go here: http://www.mousetrax.com/techtrax to enter the ezine, then search the ARCHIVES for EXCEL VBA.

----------------------------------
Visit our ExcelVBA group home page for more info and support files:
http://groups.yahoo.com/group/ExcelVBA

----------------------------------
More free tutorials and resources available at:
http://www.mousetrax.com

----------------------------------

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use

.

__,_._,___