AGGIORNAMENTO DATI CON DATA PROGRESSIVA

Sub copia()
Dim wkFrom As Worksheet, wkTo As Worksheet, mRng As Range, mDest As Range
Set wkFrom = Worksheets("Foglio2")
Set wkTo = Worksheets("ARCHIVIO")
Set mRng = wkFrom.Range("AH8:AH31")
Set mDest = wkTo.Range("F4:F27")
mDest.Value = mRng.Value
End Sub

Sub copia()
Dim wkFrom As Worksheet, wkTo As Worksheet, mRng, mDest As String, ColArc As Integer
Set wkFrom = Worksheets("Foglio2")
Set wkTo = Worksheets("ARCHIVIO")
mRng = wkFrom.Range("AH8:AH31")
mdata = wkFrom.Range("C5").Value
ColArc = wkTo.Cells(3, Columns.Count).End(xlToLeft).Column + 1
If ColArc = 2 Then ColArc = 3
With wkTo.Range("3:3")
    Set c = .Find(what:=mdata, LookIn:=xlFormulas, lookat:=xlWhole)
    If Not c Is Nothing Then
        domanda = MsgBox("data già esistente in Arvìchivio. Sovrascrivere ?", vbYesNo)
        If domanda = vbNo Then GoTo esci
        ColArc = c.Column
    End If
    If Not domanda = vbYes Then
    domanda = MsgBox("Copiare valori del " & mdata & " ?", vbYesNo)
    If domanda = vbNo Then GoTo esci
    End If
    wkTo.Cells(3, ColArc) = mdata
    wkTo.Cells(4, ColArc).Resize(UBound(mRng), 1) = mRng
End With
MsgBox "copiato"
esci:
Set wkFrom = Nothing
Set wkTo = Nothing
Set mRng = Nothing

End Sub